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I. INTRODUCTION 


Relational programming is a programming style which uses 
the relation as the basic structure for all programming. 
This ms methodology may be a sound approach to 
meeting the future needs of the computer science community. 
Because entire οσο οι are manipulated steed of 
. ا‎ data elements, relational programming may serve 
as the basis for an efficient, modern machine architecture 
which will overcome the limitations and low level word-at-a- 
time processing of the von Meumann type computers. 

A relational programming language is a higher level 
language than conventional languages such as Fortran, 
Fascal, and Algol. These languages are sequential in nature 
and involve the programmer in many low level programming ` 
decisions such as keeping track of counters or indices to 
array structures. This means that the programmer must worry 
about how to manipulate individual members of an array to 
achieve the desired result instead of being able to deal 
with the array structure as a whole. Relational programming 
frees the programmer from these types of decisions, allowing 
mam to work at a higher level of abstraction, concentrating 
more on WHAT the program must do, but not details of HOW it 
will be done. Relational programming can do this because 


data and programs are not treated differently. Data and 


programs are equivalent since they are based upon a , common 
structure, the relation. 

The relation is a reasonable and feasibie basis for a 
programming language because a well developed theory of 
relations exists and the laws which govern relations are 
relatively simpie. A similar approach to relational 
programming, which has been an active area of research, is 
functional programming. Backus described in his Turing 
Na paper  [RHef. 1] a functional language, FF, and its 
advantages in meeting future programming needs. AS 
MacLennan IRef. 21] has stated relational programming 
subsumes functional programming because every function is a 
relation. Therefore everything that can be done in a 
functional language can be done in a relational programming 
language. MacLennan has described the advantages of 
relational programming and demonstrated its potential as a 
power ful high level language. These advantages are 


summarized below: 


1. | Relational programming supports abstract higher level 
programming. 


2. Relational programming deals with a single kind of 
entity, the relation, and uses it for all purposes. 


33. Relational programming more directly supports πογ- 
linear data structures such as trees and graphs. 


4. Frograms can be algebraically derived and manipulated. 


2. Relational programming can more easily support 
utilization of associative and active memories. 


This research will serve as a mechanism to demonstrate 
the practicality and feasibility of a relational programming 
language as described by MacLennan  [Ref. 21. Therefore, 
familiarity with his report is necessary to better 
understand the further development of his work presented 
here. 

This report will describe the development and design of 
a prototype inter c NT interpreter for a relational 
programming language. It will also demonstrate that such an 
interpreter is implementable on 8 current machine 
architecture, although it wouid probably be more suitable to 
a newer type of architecture. 

This research and its product, an interactive Relationai 
Frogramming Language (RFL) interpreter, will serve as a 
kernel and impetus for follow-on work with relational 
programming concepts. It is hoped that the issues and 
decisions made in this implementation will provide the 
answers to some of the basic questions, and identify same 


Critical areas for future research. 
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II. BACKGROUND 


The von Neumann model of computation has been dominant 
for the last 30 years and has remained largely unchanged 
even though significant advances in both software and 
hardware technology have taken place. Applications continue 
to become more ند‎ and sophisticated, requiring 
1 singly more powerful computer systems. To date, 
extensions of conventional software systems have seemed to 
meet the demands. However, it has become quite clear that an 
alternative to the von Neumann computer organization is 
needed. 

Programming languages were originally designed for and 
Have supported the von Neumann machine architecture. But, 
as technology has advanced, the von Neumann sequential word- 
at-a-time bottleneck has become painfully apparent. Real 
world applications are not sequential in nature and the 
conversion of concurrent processes to operate sequentialiy 
affects efficiency and speed of computation. 

Hardware research has acknowledged that a fundamental 
limit exists on the performance increases which can be 
derived from advances in technology alone. VLSI technology 
seems to be naturally suited to new types of parallel 
architectures, and programming language design is following 


suit with the development of higher level programming 


Ta 


languages which are more powerful, abstract and easier to 
prove correct. The increasing complexity of real world 
applications is dictating a need for higher levels of 
abstraction so that the programmer can concentrate on the 
overall solution without becoming bogged down in the 
details. Relational programming is one possible solution to 
this problem. 

Relational programming is based upon the use of a 
relational calculus which can model almost any data 
structure. Therefore, the high level relational operatars 
Can also be used to manipulate entire data structures. 
MacLennan has presented and discussed the basis for a 
relational programming language in references 2 and 3. The 


operatars he describes ace based on naive set theory and 


operate on three basic objects: individuals, binary 
relations and sets. Individuals are tne indivisible data 
values which can be used to compute. A binary relation 15 
some property which relates one object to another. For 
example, the less than (<) relation relates all pairs of 
Values, : and y, for which x is less than y. Therefore the 
pair (3,4) is a member of the وج‎ relation. The | 


relation can be denoted (x,y)+2, which means that it takes a 
pair پر‎ and relates it to its sum  z. In general, 8 
relation can be represented by the notation, xRy where x and 


y may represent any objects. 


A set 15 any "= sm سرد‎ of individuals, .binary relations 
and/or other sets. ` Thus there is no restriction on what 
sets or relations can be members of other sets and 
relations. 

With these basic objects, MacLennan develops and 
describes the operators which he feels would be useful to 
the relational programmer, and demonstrates the potential 
advantages of a TRE Q language based upon a relational 


calculus. He shows that relational operators can b= 


algebraically manipulated to derive other, more complex 


operators. This ability supports the premise that 
relational programs would be easier to prove correct. It 
also demonstrates that programs can operate on other 


programs to yield relatively straight-forward ssiutions ۵ 
complex problems. High level abstraction is thus supported, 
allowing the programmer to be more productive and abie to 
conceptually manage larger and more unusual applications. 


An important point made by MacLennan is the need to 


fu 


separate intensional and extensional operators. Relations, 
functions and sets can have both a finite (extenzsionai? or 


an infinite (intensional) representation. Many operators or 


combinations Of operators are implementable in seither 
representation. This complicates the programmer s life 
because he must remember the underlying restrictions 


involved when he wishes to use an operator which falls into 


one or the other category. 


شم 
L4‏ 


1١ order to prevent confusion caused by double duty 
operators, - MacLennan made a decision to separate the 
Operators into disjoint classes, those which are used on 
finite sets and relations, and those which operate on the 
computable functions which represent infinite sets and 
relations. For example the application operator can both be 
used for applying a function to its argument and for looking 
up an item ina table (a finite relation). The first case 
نت کو‎ 5 s #@x, which applies Ehe computable function f 
to the argument x. The more common mathematical notation is 
+۰ The second case, which is denoted by t x, and read 
as ‘t select x’, applies the finite table t to x. This 


simply means lookup x in table t and return the first item 


reiated to x. Thus, if t = (1:2, 2:3, 3:4, 4:5) and = =P B 
t i x would return ‘3’. The ':' operator used above is just 
a pair making operation which says the x:y is a pair (HET 


that is a member of the relation R, hence xRy. 

The operators were further subdivided by MacLennan into 
a primitive class and non-primitive class. Operations were 
considered to be primitive if they could not simply be 
defined in terms of other operations. iS primitive 
extensional operators and iS primitive intensional operators 
were proposed by MacLennan. These primitive operations were 
supplemented by SS non-primitive extensional operators, 10 
non-primitive intensional operators and 13 miscellaneous 


operations which were defined in terms of the primitive 
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operators. MacLennan felt that these 01001-0۴1111 166 
operations should be built-in to any relational programming 
language implementation. Because the work done in this 
study resulted in modifications to some of the operators 
proposed by MacLennan, a discussion of the operators will oe 
presented in later chapters and in detail in Appendix C. 

Since a computer's memory is finite, representation of 
large extensional sets ET relations is of major concern. 
το this end, Suha Futaci (Ref. 4] extended Maclennan’s 
research by analyzing the complexity of the algorithms 
associated with several different extensional 
representations. 

Finally, the purpose of the prototype interpreter 
developed in this research is to further advance the study 
of a relational calculus as a programming methodology. The 
interpreter will provide a tool to evaluate the relational 
operations and provide tangible input for the selection of 
optimal set of combinators and relational operators. το 
achieve this several unique linguistic issues made the 


implementation of this prototype particularly interesting: 


1. RFL supported a syntax which allowed infix operators 
to be used in prefix format 14 desired. The 
expressions GE oy) and [+]%z,y>= have the same 


semantics, therefore the parser had to be designed zo 
that both expressions were ultimately evaluated by the 
same function. The utility one can gain by this 
convention is illustrated in Example 1 of Appendix 6. 


E Many operators can be defined in RPL which require the 
creation of huge sets or relations to be generated as 
an intermediate form. This is generally what  inay 


happen before the application of a filtering operator, 
im which the final result requires a fraction of the 
storage needed by the intermediate form. This 45 
illustrated by the development of the ‘xi’ operator, 
see Example 2 Appendix G. A mechanism ta allocate 
storage and perform garbage collection is imperative 
for RFL. Such a mechanism was provided by LISF's 
built-in storage management system. Having this 
feature available in LISP was a major consideration 
for its use as an implementation language. 


The original grammar shown in Appendix A was not 
deterministic and had several productions defined with 
left recursion. It also contained several meta symbols 
that had special meaning to LISF (these included '(', 
eue τ و‎ '1', and '.'?. These issues resulted in the 
transformation of the grammar to the one shown ë in 
Appendix B. 


Twelve of the fourteen alternatives to the production 
‘primary Shown in Appendix B are tagged LISP lists. 
This syntax provides a deterministic way of parsing 
these entities and alleviates tne problem presented 
with the LISF metasymbols contained in the original 
grammar. Having tagged lists for these structures in 
RFL led to a type checking mechanism where most of the 
RFL primitives are implemented with a unique 
identification tag. 
r5 III through V will further examine these issues and 
the overall design of this prototype. Chapter VI 
nS now to use the interpreter and provides several 
terminal sessions for illustration. Chapter VII 


trates the use of LISF performance analysis features 


9 651 5 a direction for follow on research in FFL. 
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There were four primary considerations for using LISF 
as an implementation language for the RFL interpreter: the 
availability of the Interlisp-10 programming environment, 
the ability to simplify scanning and parsing by adopting a 
LISF-like syntax, the πρι oy to use LISF’s built in memory 
11 ہہ‎ and garbage collection system, and finally, the 
ability to simplify several complex data structures by 
using Built in LISP structures. 

These advantages far outweigh the sometimes awkward 
IL ISF-like syntax, and some of the LISF specific input/output 
problems that surfaced as the prototype was developed. A 


discussion of the all ΠΕΡΙ. input/output, including the 


problems encountered, is found in Chapter "v. 


Â. THE INTERLISF-10@ FROGRAMMING ENVIRONMENT 

The Interlisp-10 system provides a rich programming 
environment. The tools it provides to enhance code 
development include an integrated structure editor, 2 
compiler and an excellent set of debugging facilities. 
These tools operate within a framework which does more than 
Just process one command and wait for the next. Three 


additional resident features of Interlisp that are always 
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present to enhance program development also influenced the 


choice of LISF as an implementation language. 

The ‘Do What I Mean’ (DWIM) feature of  Interlisp, is 
invoked any time the system detects an error. DWIM attempts 
to correct common programming errors by trying to logically 
predict what the programmer had intended. The ability of the 
DWIM feature to correct spelling and typographical errors is 
a definite time saver. 

Another resident feature of the Interlisp environment is 
the Programmer 's Assistant (PA). This feature basically 
maintains a history list of all commands entered by tne 
programmer. Using various ΕΒ commands the programmer can 
REDO a sequence of operations, or use UNDO to cancel 
previous operations, or replace one variable name with 
another with the USE command. 

Two particular features available in the  Interlisp 
environment, Masterscope and Breakdown, are especially 
useful to future reasearch. Breakdown is an excellent tool 
for conducting performance analysis, allowing the programmer 


to probe the system to collect information such as, the 


11 


number of calls and amount of cpu time required by 
particular function. The programmer can even find out how 
many times a function executes another function (sometimes 
the number of calls on the LISP CONS function is a goad 


performance indicator in LISF systems). 
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Masterscope is a remarkable feature of the  Interlisp 
environment which creates a database from Euch. a 
program. Using this database, the programmer can interrogate 
the system to find out information, such as where each 
function is called and where variables are bound or 
referenced, or edit a function any where a particular 
variable is used. This feature is particularly desirable in 
a prototype such as this ο. follow on research will have 
a facility to predict the effect of changes as program 


revisions are proposed and implemented. 


B. SCANNER AND PARSER IMPLEMENTATION SIMPLIFIED 

Since LISP views everything in terms of its primitives, 
atoms and lists, the tokenization function normally provided 
by a character-at-a-time scanner was Significantiv 
simplified, although the grammar had to be modified slightiy 
to adopt a more LISF-like syntax. By requiring all 
expressions to be enclosed within a set of parentheses, 
parsing an expression becomes a simple matter of determining 
the length of an expression. The LENGTH function is Built 
epee LISF. For example an infix expression written as 
Oct y) is recognized by the length 3, while the prefix 
expression Unc] en») is distinguished by its length of  -. 
Notice the requirement for spaces between the  operand and 


Operator. Spaces and parentheses are the only delimiters 


used in FPL s LISP-like syntax. Although this syntax became 


r? 


necessary as a result of implementation issues, it served 
the main objective of this prototype, to develope a tool to 
further advance the study of the use of a relational 
calculus as a programming language. 

The ability to readily identify infix and prefix 
expressions provided a logical basis for the overall design 
of the parsing function. 

By representing all REL expressions as 15۳ا‎ lists, 
eer ac te the operands and operator of a given expression 
can be accomplished easily by using the LISF CAR and CDR 
functions. These functions each take a non-empty (non-null) 
list as its argument. The CAR function returns the first 
element of a list, whereas tne CDR function returns a list 
containing all elements of a list except the first element. 
Therefore, the CAR function is used te extract the operator 
Of a prefix expression, and the operand is obtained by first 
using the CDR function on the expression, followed by the 
CAR function. For example, the expression (not p) can be 


parsed into its operator and operand as follows: 


Operator 4= (CAR ‘(not p)) = not 
operand <= (CAR (CDR ‘(not Pp} = p 
Note that LISF evaluates nested functions from inside oput. 


This means that to obtain the operand, the function (CDR 
(not p)) is evaluated first, which returns the list (p). 
This result is then the argument to the CAR function, which 


extracts the p from (p). Since LISP programming requires 


many instances where successive CAR and CDR combinations are 
required, a shorthand notation simplifies the operand 
extracting code to the following: 

operand <= {CADR ‘(not p)) = مغ‎ 
where the ‘A’ of the CADR function comes from the CAR 
function, and the 'D' from the CDR function. 

Therefore, simple length checks on expressions direct 
the parse into two logical subsets. Once this is 
ME plished the operator and operands are readily 
accessible through a sequence of CAR and CDR function calles. 


This simplicity made LISP particularly attractive as an 


implementation language. 


C. 15۳ا‎ PROVIDES A BUILT-IN MEMORY MANAGEMENT SYSTEM 


Using LISP as an implementation language also eliminated 


the need tor coding a memory management and garbage 
collection System, since these features are already 
available iets | Se. Issues such as variable storage 


requirements simply went away. The ability to let a proven 
system like Interlisp perform all tne memory management 
provided a sound foundation on which the RFL system could 
implemented. This also eliminated a very error-prone area of 
coding that might have created significant delays in the 


development of this prototype. 


D. REL DATA STRUCTURES SIMPLIFIED 

Many of the data structures needed by the RPL 
interpreter were readily available in LISP. Using built in 
LISF functions simplified and/or eliminated a considerable 
amount of code in the sets and symbol table data structures. 

ALL of ٩۳٢ 5ه‎ extensional operators operate on finite 
sets. LISF’s implementation of 2 15 simple, the LISP 
list. Additionally, tarer DEN provides a complete 
ده‎ of set operations including union, intersection, 
set difference, cartesian product and both membership and 
subset boolean functions. Using these built in LISP 
functions as a foundation, all that was needed to implement 
many of the set operators in RPL was the addition of type 
checking to ensure the compatibility of the operands used 
with the built-in functions. 

One of the main design decisions in the development caf 
the  RFL interpreter was the choice of the data structure to 
represent the symbol table. Several related design decisions 
had already decreased the complexity of the symbol table 
requirement. Variable storage requirements were no longer an 
issue, and a type checking tag was to be embedded within the 
variable's definition. Ali that was needed was a mechanism 
that could provide a binding between a variable name and its 
definition, along with a fast and efficient accesssing 
function to retrieve the definition of a variable given. its 
name and scope. This Pe η. translated directly to the 
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LISF association list, or a-list. The RFL symbol table is 


referred to as the RFL environment (denoted globally as ʻE’) 
since it is the same structure used in MacLennan's 
development of a LISP interpreter written in LISP, [Ref. 531. 

The a-list is nothing more than a list where each 

element is a list. The following is an example of an a-list: 
E = ( (x 1) (y, 2) (z 3) (t set 1 2) ) 

Each element of the Jet represents a name/definition 

Bir. The name is the CAR of the a-list element, its 

definition is the CDR. In the example above the x, y and =z 

are bound to 1, 2 and Ë respectively, while t is bound to 

(set 1 2). 

The a-list structure in LISF can be efficiently scanned 
by the LISP SASSOC function. This function, given an a-list 
and a target, will return the a-list element (both target 
and its definition), if the target name is found, otherwise 
it returns NIL, indicating the target was not in the found. 

The use of the a-list data structure to represent the 


RFL environment provided still another means to simplify the 


the overall coding requirements of the interpreter. 
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IV. RPL GRAMMAR AND SYNTAX 


A. INTRODUCTION 

One of the goals of relational programming is to develop 
a notation which is both readable and has the manipulative 
advantages of a two-dimensional algebraic notation. Such a 
notation would enhance fe abi idee of relational programs to 
Be mone easily proved correct. Unfortunately, most printers 
do not incerporate the unique mathematical symbols that are 
necessary to support a notation of this type. However, 
there are software methods which enable some specialty 


printers to produce such symbols. 


With such a notation in mind,  MacLennan proposed the 


Original grammar shown in Appendix A. This grammar was 
printed using the ‘eqn’ package of the Unix Operating 
System. This package is a text formatting tool which takes 


an English-like description of an equation and generates the 
mathematical symbols for that equation when it is printed. 
Thus the notation and operator names utilized by MacLennan 
have the eqn input format as a base. The utility of the ean 
package 15 introduced in this version of the grammar, but 
its real value will be demonstrated later 2 the symbols 
Selected for the operators are discussed. 

Maclennan's grammar accurately presents the production 


rules necessary to produce legal relational programming 


statements independent of implementation considerations. 
However, it 1s loaded with left recursion, which means a 
great deal of effort would have been required to transform 
it into a form from which a conventional parser could be 
gener ated. Fortunately, the decision to use LISF as an 
implementation language eliminated this concern, but did 
present Boner problems which required modifications to this 
generic grammar. In لس‎ to basic changes required by 
Phe use of LISP itself, other modifications were found to be 
necessary as the RFL interpreter was designed, tasted and 
exercised. The remainder of this chapter will discuss the 


evolution of the original grammar into its implemented form 


presented in Appendix R. 


B. DISCUSSION ABOUT THE ORIGINAL GRAMMAR 

At the highest level, the original grammar called for an 
interactive session which consisted of zero or more commands 
and the word ‘done’. Commands could consist of a data 


definition, a prefix function definition, input from A tile 


and output to the screen. In addition to the many built-in 
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infix ang prefix operators, several special constructs were 


لا 


سے 
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avallable including iteration, superscription 
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conditionals. Finally, a variety of symbols represented 
different objects within the language. 
The bracket symbols, ‘LT and '1', had two meanings as 


printed in Appendix ñ. In one sense their use meant that 


the object(s) enclosed were optionally required. This 
meaning is still retained in the revised grammar. On the 
other hand the brackets also were terminals in the language 
which produced different relational structures depending 
upon what objects were enclosed by them. First, an infix 
operator enclosed in brackets, e.g. C+], transformed the ‘+’ 
M which took two numeric arguments, into a prefix 
operator which took one 0-9 a pair of numbers. Thus 
23 + y) became equivalent to [+] (x,y) where x and y could 
be any number. Second, the brackets could be used to fix 
either the left or right arguments of an infix operator. 
Therefore, it was permissible to write (Citjx where [3*1 is a 
specialized operator which adds د‎ to any other single 
numeric argument such as x. Likewise, [+4] Fixed the right 
argument to '4' and would add any numeric argument provided 
to ο. Use of the brackets in any of the above manners 
created a functional which could be combined with other 
functionals to create whatever mechanisms were required to 
accomplish a particular task. 

Farentheses were included to allow natural mathematical 
groupings of both expressions and their arguments. Thus 
expressions could be both RPL functionals or data. ihe angle 
brackets, 'i' and '-*', when used to enclose data represented 
a special sort of sequence which had a termination symbol, 
much like a LISF list structure which ends in "nai lm 


Finally, braces were used to enclose the elements of a set. 


The use of these symbols presented a convenient method for 
manipulating functionals, but conflicted with the ۳ 
syntax. The changes to the grammar that resulted because of 


this are discussed next. 


C. GRAMMAR MODIFICATIONS DUE TO LISF 

Unforturnately, parentheses and brackets have a 
different meaning in LISF.. In LISF parentheses are used to 
delimit a list structure. Brackets serve basically the same 
purpose, but the right bracket, known to some as the super 
bracket, closes off all left parentheses which do not have a 
matching right parenthesis. For those who are familiar with 
LISF, this feature is both good and bad! Some say LISP 
stands for ‘Lots of Idiotic Stupid Parentheses’ which 
Summarizes the frustrations encountered with parenthesis 
bookkeeping. 

This conflict of symbols required that an alternative 
syntax be developed toa conform with the LISF list structure 
and still maintain the semantics of the RFPL language. 


To distinguish between structures, it was decided to use 


rh 


keywords as the first element of the list which represented 
them. These input formats are then transformed into the 
internal structures required by the interpreter. Another 
problem was the use of a pair of dots or periods to indicate 


a range of values. For example, in the original grammar the 


range (6..8) was equivalent to sequence (45,7,8). Use of the 


Character "۰.۰ ain RPL created a symbolic conflict in  LISF. 
Dots in LISF are treated as special connectors which form a 
Structure called a dotted pair. Since LISF does not 
normally treat dots as regular characters, anywhere a pair 
of dots was required in the original grammar, the word ‘to’ 
was substituted in the new grammar. 

Although some of the symbols used in the originali 
grammar did not pose a arabian in LISP, they were abandoned 
ror consistency. The resulting constructs are summarized by 
example in Table IV-i. Note that these formats are just 
LISP lists with their formal requirements for spaces between 
the objects in the list, be they numbers, words or any 
grouning of characters. Thus, a disadvantage of LISF is 
inherited by RFL, the importance of spaces and the correct 


placement of parentheses. 


D. GRAMMAR MODIFICATIONS DUE TO DESIGN AND IMPLEMENTATICN 
Several productions were added te the grammar due το 

considerations and factors which surfaced during the 

implementation process. At the command level a decision was 


made early on to increase the flexibility for the RFPL 


programmer by allowing him to define infix operators as well 
as prefix operators. The original grammar forced the 
programmer to define infix operators in a prefix format. 


That meant that His normal thinking about an infix operator 


had to be altered to fit the prefix form of a function which 


Table IV-1 -- RPL Grammar Modifications 
Required By Use Of LISP 
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takes a single argument — in this case a list containing two 
arguments. Internally, all operators can be considered as a 


prefix, but most people have become accustomed to thinking 


about binary operators in the infix sense. For example, ta 
add 2 and 3 in REL it is natural to write 
(display رت ات‎ 2© But to define the infix operator 


‘plus’ which would do the same thing, a user would have to 
enter ‘(plus (x y) == (x + ye 
| To alleviate this inconsistency, a production rule was 

added to allow the programmer to define the operator ‘pius’ 
in the more natural way and to use it the same as any other 
infix operator: 

Definition => (x plus y == (x + y)) 

Example => (display (2 plus 3)} 

The second major addition to the grammar was a similar 
construct to the LAMBDA expression in LISF. This construct 
provides the programmer with a great deal of flexibility and 
Was incorporated into KFL as a ‘func’ expression to insure 
no confusion with the LISF equivalent. Like the LAMBDA 
expression in LISP, the func expression consists of the name 
of the function, a list of formal parameters, and the body 
OF the function in terms of the formals. Thus, the FFL 
programmer can now define functions/relational operators in 
three ways, directly using the ‘func’ expression, as a 
pretix operator, or as an infix operator. For comparison, 


the three types of definitions for the ‘plus’ operator as 


described on the previous page are shown below: 


Direct: (plus == (func (x y) (x + y))) 
Prefix: (plus (x y) == (x + y)) 
۲06 ٤ (x plus y == (x + y)) 


From the examples above, it appears that parentheses ars 
going to plague RPL just as they do LISF, but, as will be 
discussed in a later chapter, the 1۳1 5۵۳ 11 50 ۰ environment 
provides a mechanism Un EN EI icd the outside parentheses to 
EE ned when inputting commands, and actually assists in 
keeping tract of correct placement of parentheses. 

The next modification, which was deemed appropriate to 


make the programmer's life a little easier, dealt with the 


RPL command ‘display’. At the command level this word had 
to be written to obtain output to the screen. It quickly 
became apparent that it was cumbersome to type ‘display’ in 


order to see every result of a computation. SO, the 
alternative input forms of ‘dis and 'd' were added. 
Finally, even these forms were made optional, requiring the 
interpreter to detect automatically the programmer =s intent. 

As mentioned earlier in this chapter, the original 
Grammar only permitted input from a file. The intent was to 
allow the user to create a series of RFL data structures 
outside of the RPL environment and to read them in as 
necessary during a session. It became apparent that there 
also was a need to save data created during a session. For 


example, a database in FFL is just a large set of records, 


where each record is a relation between the field names and 
their associated values. It is desirable to be able to read 
the entire database structure from a file, update it in some 
fashion during a session, and rewrite it Back to a file. To 
allow this, another production was added at the command 
level which ρα μα Ee گر و‎ of the EE: 
file string == expression 
Execution of a command of this type would place the 
value of the evaluated expression into a file with a 
filename given by the ‘string’ argument of the operator 
πατε. For example, consider an existing database stored 
in a file called ‘OldMaster’ and an updating function, 
Called ‘Update’, which when given a database as an argument 
would modify the value of a selected field in all records 
and return the updated database. With this new production 
it 15 then possible to execute the following command: 
(file "NewMaster"™ == (Update (file "OldMaster")2? 
This command would read the ‘OldMaster’ file in, execute the 
‘Update’ function with ‘OldMaster’ as its arqument and then 
rewrite the updated database to the file 'NewMaster'. 
The die problem with this construct is that it should 
not be used to store function definitions to a file. A 
function definition has associated with it an environment of 
definition. This environment consists of all previcusly 
defined functions, their environments, and any data 
definitions made up to the point of definition in the 
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session. Since the environment is nothing more than an 
association list which contains the E of all names to 
thelr values, this list can become extremely long in a short 
period of time. Internally, pointers are used to conserve 
space, but when printed, the entire environment chain is 
produced, which could result in many pages ot information. 
As discussed in Chapter V this could cause a fatal problem 
or be a terrible Moonta niece at the least. another 
eure of the RFL system, which is discussed in more detail 
in Chapter V, allows function definitions created during a 
session to be saved for future use and thus avoids the 
problems which could be created with tne file command in the 
output mode. | 

The function definition and its associated environment 
did lead to two other grammar modifications. First, ths 
Initial implementation of the ‘display’ command returned the 
evaluated form of the argument. Therefore, ἘΠΕ result of 
executing such a command returned something totally 
different from what the user typed in and compounded the 
problem with environment length. 

For example, say the user typed in the following data 
definition: 

(x == (seq 1 2 3)) 

Later in the session he decides to remind himself of how 
was defined. He types in the command (display x), But what 
1 5 returned is not his definition, but the internal 
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representation of the sequence he defined: 

(Erel (1 2) (2 3)) 
Likewise, if he had defined the function f as: 

(f x == (x times x)) 
and then entered (display f), he would see: 

closure x (x times x) ... 

Internal representations will be discussed in detail in 
Chapter V. To an ARP e user, this would be quits 
em. and so the DISPLAY function was modified to return 
the user definition as it was typed in. 

After one becomes familiar with the RFL language it 
becomes desirable to sometimes see the evaluated internal 
representation of any particular name. This feature is 
especially helpful when trying to debug a command that 
didn't work. The ‘val identifier’ command was developed to 
handle this need and was extended to meet the need to. see 
the overall session environment or the environment of any 
particular function. 

Every function definition has its environment Ber 
definition attached when it is converted into its internal 
representation. In LISF, that means a simple pointer is 


added to the list which describes the function. When this 


It 


definition is printed, however, that simple pointer is th 
beginning of a very long list of pointers which may 
represent atoms or other lists of atoms to be printed. 


Consequently, pages of information are printed to the 
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screen. When this same information was in evaluated form, 


the result was excessive and usually resulted in aborting 


the session. To prevent this surge of unwanted information, 


the  DISFLAY function was modified to print only the ‘first 
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three elements of a function definition, its name, mu 
formal  paramenters, and its body. Unfortunately, this 
modification also eliminated the ability to ever look at any 
environment. So, the ‘env’ command level productions were 
انہک‎ They allow the user to look at the overall session 
environmen or tne environment of any designated function. 


These features will be discussed further in the input/output 


section of Chapter V. 


E. ΙΝΕΙΧ VS FREFIX OFERATORS 

At first view tne myriad of operators shown in 
MaclLennan’s grammar seem overwhelming and confusing, but ons 
must remember that many of the words and symbols chosen were 
based upon the Unix eqn input format. Due significantly to 
the way the RFL interpreter was developed, many of the 
prefix operators became more naturally suited to an  infiz 
format. Some operators were discarded as no longer relevant 


because 


of Changes in the way argument lists were 
represented. Others were added because of a new foung 
utility based upon the same change just mentioned. pt! 3 


also here where the true utility of the eqn text formatting 


tool becomes apparent. The sheer quantity of operations, 


due mostly to the goal of preventing overloaded operators, 
required a great deal of distinct symbols. The purpose and 
use of these operators are discussed in Appendix C, But 

their names, original input forms, final input forms and the 
egn publication forms are shown in Appendix E. This 

BERÊ summarizes the final changes to the grammar, 
highlights the conversion of some prefix operators to infix, 
and also serves as a concise guide to the relational 
operators and their syntax. Finally, the current grammar as 
implemented by the RFL interpreter is shown at Appendix B 

and includes all the modifications discussed in this 


chapter. 


Va INTERPRETER DESIGN AND DEVELOFMENT 
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Previous chapters have illustrated the rationale behind 
the choice of LISF as an implementation language and the 
resulting modifications that became necessary to adapt the 
the original RFL grammar. The purpose of this chapter 15 to 
focus On issues related - the implementation the of RFPL 
|| وښن‎ and the overall structure of the interpreter. In 
addition, since MacLennan's report (CRef. 2] illustrates how 
many RFL operators can be implemented by defining them in 
terms of a set primitive operators, — mechanism used to 
implement the extensible nature of RFL is also an issue that 


Will tbe discussed. 


Ee τι PRIMITIVES 

RFL contains three σερ ο elements, individuals, 
sets and relations. The function, which 15 merely a special 
case of a relation, was added to the list of primitives 
because it required a unique internal representation. 

1. Individuals 


The indivisible data element found within EPFL is the 


B 


individual. This data type is equivalent to LISF atomi 
values and is implemented accordingly. Numeric, string and 
boolean scalars common to all programming languages are 


available in RFL. Strings must be enclosed in quotation 


marks to distinguish them from LISP literal atoms. Literal 
atoms in LISP are used to implement the boolean values, 
‘true’ and ‘false’, and all identifiers. 
2. Sets 

The set in RFL is implemented as a LISF list 
containing the tag 'Eset' as its first element. The tag 
‘Eset’ is used both to distinguish the internal set 
representation in 2 7 form from its input format and 
acm type checking device. For example, the set having the 
internal representation (Eset 1 2 3) may have been input as 
(set 1 2 3) or (set abo), where a-c have appropriate 
internal bindings. | 


-- 


5. Relations 


The finite relation, being a special kind of set, 


has an internal representation that closely resembles the 


set. The relation requires a Special type of LISP [1 و51‎ 
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called an association list or a-list. This particular data 
Structure was chosen to implement the relation for two 
reasons. First, the mathematical notation for a relation 
closely resembles an a-list. For example, the mathematical 
relation 

t€ (1;2) 42,57 e TED 
1 5 represented in RFL as the following tagged a-list: 

(Eset (1 2) (2 3) (3 4) (4 5) ). 
second, the desire to use relations as tables, suggests the 


choice of a data structure that can be searched quickly and 
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efficiently. The LISF SASSOC function provides this 


capability when called with an a-list as its argument. 


Since many built-in RPL operators are designed ۵ 
operate on relations, to perform the fast recognition 
necessary for type checking, the 'Erel' tag was used in 
place of the ‘Eset’ tag. This efficiency was not free. The 
cost of distinguishing relations as a special type of set 
was paid for by the ——Ó complexity in set operations 
Bet the coding necessary for coercion functions. 

a. The Evolution of 'Erel' 

During the earlier stages of development, 
after the decision to have the 'Erel' tag to distinguish 
relations, it seemed logical to extend this principle το 
special kinds of relations, namely sequences and arrays. 
There were many operators within RPL designed to operate on 
theze kinds of relations, therefore, for the same rationaie 
behind having the 'Erel' tag, the 'Eseq' and 'Elist' tags 
were adopted. 

The language incorporated two input formats 
as convenient ways to enter mathematical sequences and 
arrays. The familiar mathematical notation for the two 
entities was reflected in the original grammar. The sequence 
was SnOwn in tne original grammar as ( 2, 4, δ. B ,رز‎ whereas 
the array (n-tuple), was represented as i 2, 4, ó, B =. Both 


of these are mathematically relations: 


( 2, 4,65, B) ex ٦ de (5,8) y 
< 2, 4, 6, ق8‎ > <=) A (1,2) 2.4} C». GJ το 
This was modified to the following LISF-like syntax: 
( 2, 4, ہک‎ 8B8 ) => (seq 2 4 ó 8), 
€ 2, 4, ó, 8 > => (list 2 4 ὁ 8). 
For completeness, an input syntax was 
adopted to permit relations to be entered through the use of 
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the tag ‘rel’, in place of the ‘set tag, and the use of the 
REL pair making operator, ':'. The input format 
(rel €Ll < دند‎ 7659 


was represented internally in RFL as the relation 


(Eral ΠΠ ο ου 
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Although the decision to have different tag 


+. 


to distinguish each special kind of set made type  checki 
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very fast and efficient, having numerous internal forms that 
are mathematically equivalent was a problem not easily 


Solved. Consider the relations r, s and 1 bound as follows: 


I (Erel 8+ 70 


s < ( Eseq (1 2) (2 3) ۲ 


1 


( Elist 11:7 
Any operation applied to any of these relations should yieid 
the same results. Additionally, an equality test comparing 
any two of them should return ‘true’. This situation becomes 
even more muddled if the following binding is made: 

Ε΄ 4= 4 Eset (1 2) (2 3) ). 


Now there are four variables, bound to four physically 
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different representations, which must be evaluated as 


equivalent structures. This is like trying to do computation 


with numbers given four different number systems. 

The problems created by having four objects 
with the same meaning was not solvable without 8 
considerable amount of coding. A coercion function for 
every possible representation was required. The global 
Variable  'ESETS', a ہےر‎ ἔπι tags considered legal for set 
1 ins, had to be established.  Frecedence rules had ta 
be implemented to determine what tag to affix to the result 
Of a set operation. The equality check had to be designed to 
focus on tagless lists. All this additional effort hardly 
seemed cost effective for a prototype, especially when the 
algorithm for the coercion function to create a m 
was considered. Coding to ensure a set is a fully connected 
irreflexive bijection (definition of a sequence used in by 
MacLennan LRef. 2: p. 221) is not trivial task. 

It was time to re-examine the efficiency 
Gained in the type checking mechanism by having tags 
distinguish various kinds of sets, versus the increased 
coding complexity necessary to ensure the semmantics is not 
altered in thus new syntax. This involved screening 
MacLennan's report CRef. 21] to classify operators based on 
their operands and their output. It was observed that when a 
prefix operator required two arguments, a two element 


sequence was used. For example, the function defined as 
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sum == (x + y) 

was used with the syntax, sum(2,4). Further analysis found 
cases where the use of the sequence was inconsistent with 
its formal definition. This discovery led to the RFL list, 
depicted as ix,y^ in the original grammar, replacing the 
sequence as the form for arguments to functions like ‘sum’. 
This shift from sequences to lists will be discussed in more 
detail in the following E rene 

| The significance of the shift from sequences 
to lists as functional arguments was that the sequence and 
its operators were now considerably less important to the 
RFL programmer. This, along with the coding complexity 
described earlier, resulted in the decision to abandon the 
'Eseq' tag. Additionally, knowing a set us a relation makes 
it is easy to verify if the relation E a ΠΕ. list. This 
resulted in the elimination of "Elist’ tag also. By 
eliminating these two tags a viable compromise had been 
made. 

The special input formats discussed 
previouslv were kept in the language for user convenience, 
with the tag 'Erel' being appended internally, vice ‘Eseg’ 
Or 'Elist', to the a-list that made up the relation. 
Sequence operators were still provided but error checking 
was limited to verifying that operands are relations. This 
put the responsibility on the programmer to ensure proper 


arguments were used. 


The end result of the trade-off analysis, 
weighing the issues of type checking efficiency verses code 
complexity, brought to light the detail and depth of 
planning required to design an effective software system. 
Language features are not free, and simple solutions to one 
problem may well create a snowball effect in complexity inf 
other areas. Unfortunately, sometimes this is not obvious 
without modeling the ee eee 

b. The Sequence Loses Significance in RFL 

The sequence is used by MacLennan CRef. 2] 
to represent an argument to multi-parameter prefix operators 
and functions. Many applications used the Sequence 
operators, alpha and omega, to extract the individual 
Operands from the two element sequences. In the sequence 
(2 y), alpha and omega were used to extract x and y 
respectively. These operators can only be used on a pure 
Sequence. Graphically sequences can be represented as being 
a fully connected structure, with πο cycles, and all arrows 
pointing in one direction (see Chapter VI). 

In addition, the DELTA function Mas 
introduced to create a mechanism that could duplicate an 
argument for function application. For example, the squaring 
function would be defined as follows: 

sqr == [times] o DELTA. 

The DELTA function duplicates any argument returning the 


sequence shown 


DELTA n => (n ; m). 
Therefore sqr 4 can be written 

sqr 4 => [times] (4 , 4). 
This looks perfectly reasonable, except that (4 , 4) 15 not 
a sequence. By definition a sequence 15 irreflexive. 

The problems created by the irreflexive 
property of the sequence are discussed in MacLennan s 
research (Ref. 2: p. 22] b considerable detail. He also 
بت‎ οὐδε an alternative definition to the sequence, but the 
structure used as the argument to functions remained 
sequences throughout. 

The failure of the sequence as an argument 
to functions became obvious as many of the extensionally 
defined operators were implemented. | In many instances 
definitions used the alpha and omega operators on their 
arguments. These functions would not work for inputs of the 
form (n, n). Functions that were defined in terms of DELTA, 


alpha and/or omega would not work on any input, since the 


alpha o DELTA 

omega o DELTA 
are undefined. 

The REL list; which nag ۲۱0 341 1 1 
similarities to the sequence, x,y? verses (x,y), was a 
logical replacement to the sequence as the argument to 


functions. The list construct zn, n», which is just an 
( 
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array, was well defined, filling the void not covered by the 


΄ 


sequence. The ‘sel operator, when used with RFL list, 
provided a means to extract each operand to ae function, 
similar to the alpha and omega used previously on ths 
sequence. The operators [sel 1] and [sel 2] extract the 
and y components from the list ¿x y>. DELTA had to be 
redefined to return the list tn,ns. The i: operator, which 
was defined as 


- 


0 ف٣‏ و ( 2 ح ‏ ہت 


IND Ps کو جو رد جا ےا رر یہ ا اد‎ 
Essentially, definitions where (x,y) appeared in the 
original report were replaced by «ΜΥ κ and alpha and omega 
were replaced by either [sel 1] and [sel 21 , respectively. 
The unsuitability of the sequence as a 
argument to a function has in no way diminished the power of 
RPL. The list structure is just as easy to manipulate 
algebraically, and is more versatile in many respects. For 
example with the use of the 'func' a programmer can define 
functions oft the form 
add3 == ( func (x y Z) ( (x + y) + z) ). 
This can be used for any number of variables. A flexibility 
not possible with sequences. From a system development 
aspect, it is far easier to perform error checking on lists. 
If anything the shift from sequences to lists made RPL 


system development and programming tasks simpler. 


۰ ٢ 1. 

Since RPL is extensible, both user defined functions 
and system functions that are defined in terms of a kernel 
of orimitive functions have the same internal 
representation. This representation consists of four 
elements, the keyword E us the formal parameters, a 
function body and an environment pointer. 

The keyword لړ‎ EE is adopted from its use Dy 
MacLennan CRef. 5: pp. 426-437]. He defined a closure as 
having two elements, EU can be used to implement static 


scoping, an instruction part (ip) and an environment part 


(ep). The ip is a pointer to the part of the code which 


{0 


rr 


defines the function, and the ep is a pointer to h 


context of a given function, which is all the names visibl 


۱ 


to that function. For KFL purposes the keyword ‘closure’ is 
merely a type checking tag like ‘Eset’ and 'Erel'. However, 
the basic structure used by MacLennan to implement static 
scoping in his model LISF interpreter was also used in RFL. 
Figure ۷-1 shows the parallel between MacLennan’s model and 
RFL. 

The formal parameters and the body of the function 
correspond to the ip used by MacLennan. Formal parameters 
are represented in LISF as either a literal atom or a list 
of literal atoms. The body of the function is a LISF list 


which 15 syntactically a RFL expression. The expression is 
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defined in terms of, the formal parameters along with names 


defined in function’s environment of definition. 


The environment pointer is a snapshot of tne RPL 
system environment at the time a function is defined. More 
precisely, this pointer corresponds to the RFL system 
environment pointer when the function was defined (this 
takes advantage of the way LISF implements the iist 
internally). In view of T all names defined by tne RFL 


programmer during a session and all RFL built-in functions 


are within a function's environment of definition. 


MacLennan’ s Model nFL Model 


i p —À 91-7 


closure ep closure formals body ep 
lambda formals body 


Figure V—-1 -—- Similarity between Models 


Section ولا‎ which illustrates the process of 
evaluating funcions will elaborate on how RFL system binds 


formal parameters to their actuals. 


B. RPL ENVIRONMENT 
AS discussed in Chapter III two of the main advantages 
for using LISF as an implementation language were the 


ability to use built-in LISP data structures and LISF’s 


memory management system. By embedding tags as part of the 
internal definition of sets, relations and ru رر٢‎ and 
using the LISF boolean functions,  NUMBERF and  STRINGF, on 
individuals (non-lists), the type checking mechanism was 
gasily established. Therefore, many of the attribdutes 
normally stored in the symbol table of conventional language 
systems were eliminated. Combining this with the static 
scoping mechanism ai sed in the previous section reduced 
Ehe RFL symbol table requirements to a mechanism that would 
bind each mame with a pointer to its internal detinition and 
provide a fast means of accessing that definition. 

LISP implements the list very efficiently by using 
pointers to cells in memory. Since every list can be broken 
into two components, its CAR and CDR, the list wat a simple 
but logical choice of a structure to be used to associate 38 
name with its definition. The name and its definition form a 
pair corresponding to the CAR and CDR of a list. 

^4 list construction function, appropriately called 
CONS, is available in LISF. CONS takes two arguments, the 
first argument is the CAR of the list, the second argument 
15 the CDR. Using this function a binding can be made 
between a name and its definition. This is illustrated in 
Figure V—2. 

The most primitive of LISF lists is called a dotted 


pair. Like any other list, dotted pairs have a CAR and a 


CDR. Dotted pairs get their distinction from the dot that 
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sometimes separates the CAR and CDR when displayed. The CONS 
function usually adds its first argument to the beginning of 
a list, which is the second argument. Most LISF lists end 
with a NIL marker, thus (CONS 1 MIL) is the list Γι 
However, list without a NIL marker occurs when the second 
argument to the CONS function is an atom (and not NIL). 
Since the second argument has no NIL marker, the list 
created by CONS in this instance has no NIL marker | either 
E it looks a little strange when printed. LISF prints its 
lists Dy following the pointers of each ت5‎ û dot 2 
1 5 printed preceding the last element if there is no MIL 
marker associated with it. This is why a dot is shown in 
the illustration if . def). In many LISF implementations the 


dot '.' is the same operation as the CONS function. 


i ۱ ص‎ Š 
ےت ہج و لات کک‎ SOT... def) 
CIS < - i CAR CDR 
Figure V-2 سب‎ Typical Binding 


Having each name associated with its definition Dy 
using the CONS function is not a novel idea to a LISP 
programmer. A list of these pairs is called an association 


list or a-list in LISF. To search these constructs rapidly 
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LISP provides the SASSOC function. This function, when 
called with a target and an a-list, will compare the target 
to the CAR (or name pointer) of each element of the a-list. 
If the target is found the entire element is returned. 
Taking the CDR of this result provides the definition. This 
process is encapsulated by the RFPL system function LOOKUF. 
The simplicity and efficiency of this data structure makes 
it an excellent mechanism to M ήσαν the RFL environment, 
especially in a prototype. 

although efficiency issues of RFL will be topics for 
future research, the design of the EFL environment using the 
the a-list owes its efficiency to its LISF implementation. 
By taking advantage of the characteristics of the LISP list 
and its most basic list constructor to bind names and 
definitions it was hoped that efficiency could be inherited 
from LISP.  Fointers used in many PASCAL like languages are 
often hard to use and error-prone. LISF provides the 
efficiency of using pointers without the programmer having 
any conscious awareness of their implementation. This level 


of abstraction simplified the programming task considerably. 


C. FARSING RFL 
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In most languages user input is first analyzed bv 
scanner. However, by using LISF as an implementaicn language 
and making some minor modifications to the grammar to adopt 


a LISF-like Syntax, the functionality of the scanner was 


eliminated. The RFL command line is simply a LISF 11 51 
Using various LISF funcions to examine the syntax of this 
list, the semmantics of the command is extracted. 

Parsing the grammar shown in Appendix B can be 
accomplished by dividing the parse into two stages. The 
basic input to the interpreter is the RFL command line. 
Determining which of the nine different commands is being 
used 15 the first stage of the parsing task. Five of the 
commands require the evaluation of a RFL expression. Farsing 
the expression is the second parsing stage. 

The first parsing stage, which is accomplishsd by the 
RPL system function EXECUTE, classifies the REFL command. ALL 
RFL commands with the exception of the command ( done } can 
be classified as shown in Figure V—35. ΤΠΕ utility function 
FOSIT scans the command line and returns the posticn of the 
atom == ۾‎ If '--' is not part of the command line FOSIT 
returns A. Using this information, combined with checking 
the length of the command line, syntax 15 verified and the 
parse is guided to either the function DEF BINDINGS or 
DISPLAY for every command except the ‘done’ and ‘filea’ 
commands. The ‘file’ and ‘dons’ commands are directed to the 
FILE WRITE and EXIT RFL systems function respectively. 

The function DEF_BINDINGS, expecting one of the first 
three input forms shown in Figure V-3, completes the parses 
by checking the length of the command line. ۳۳۱۵۷1 ۲9 the 


length of the command, the name and expression can be 


extracted using the CAR and CDR functions. Once the 
expression is isolated it can be evaluated By calling the 
function EV. 

If the expression is evaluated successfully several 
events occur. First the CONS function binds the name to the 


evaluated expression, and this pair is consed onto the RFPL 


environment, E. Second, the name is consed onto the command 
( κ ἘΞ Θ:Ρυ κ; . 
۱ 
C f == exp ) :—— contain the atom '--' 
1 
1 


binding required 


) file "string" == exp ) ----- contain the atom ‘== 
file IO required 


( display esp J '—————— 
( val identifier) 


———— do not contain ‘==’ 


( env ) display required 


( env identifier) ——————— 


[ dones ( Ta do not contain ==’ 


Figure V—3 —— Command line analysis 


iine and is added to the a-list called USERDEFS (giving the 


user the ability to save his commands to a file; ses 


Chapter VI). Finally, if the binding is being made to a 


function defined using prefix syntax, the name of the 


function is added to the global PREFIX_OPNAMES. If an error 
is detected while evaluating the expression the message 
“BINDING CANNOT BE MADE’ is given. 

The DISPLAY function looks at the CAR of the command 
line to continue the parse and determine what must be 
displayed. If the ‘display’ command is used with an 
identifier, the name is looked up in USERDEFS and the 
command | that generated m binding of that name is 
٢ اد ہد‎ Otherwise the expression is evaluated and the 
result is shown. The debugging commands illustrated in the 


last three forms in Figure V—3 are also handled by the 


DISPLAY function (ses section H on I/O). 


D. EVALUATING RFL EXPRESSIONS 

Ihe heart of the ΠΕΙ. language is the expression. The 
expression is the vehicle that allows programmer z creative 
ability to be transmitted through RFL into something 
meaningful τ, ISP The process of evaluating these 
expressions is centered around the RPL system function EV. 
This function, along with several auxiliary functions, parse 
and evaiuate the expression recursively. The basic mechanism 
implemented by RFL used the design illustrated by MacLennan 
(Ref. 5: chap. 111] and Winston (Ref. 7: chap. 22), where a 
LISP interpreter was written in LISF, as a model. 

TRere are two main differences between the design of the 


text book model and the ΠΕΙ system. Every operator 
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implemented in the model design was 1n prefix notation. RPL 
must handle both infix and prefix operators and be able το 
recognize infix operators used with prefix syntax. The RPL 
system treats any infix operator as syntactic sugar for a 
prefix operator, which is made explicit in the use of the 
(op f) syntax. In this respect, the RPL system design is 
much more complex than its model. Adding to RPL's complexity 
was code necessary to provide a robust interpreter that 
would survive common programming errors. The error 
detection/recovery mechanism is discussed separately in 
section &. 

The remaining section will explain the design of the EV 
function and its auxiliary functions that together provide 
the mechanism to evaluate the RFL expression. 

1. Ihe EY Function 

EV is a function which was named after the LISF 
function EVAL, since functionally EVAL and EV are identical. 
Every expression in a LISF program is sent to EVAL. Every 


ession is sent to EV. EV, then, iz the 


الا 


expression in an EFL 
singie most called function in the system. It takes two 
parameters, a RFL expression and a pointer to the 
environment Of evaluation, which 1s the global environment 
when called originally. Using indirect recursion, EV and its 
supporting functions provides an effective mechanism which 


is central to the power available in RPL. 


The case analysis shown in Figures V-4 provides the 
framework for the design of EV. The RPL -expression is 
represented in LISF as either an atomic entity or as a list. 
Both these rases can each be further subdivided into tires 
possibilities. Using the LISF conditional, COND, the logic 


suggested in Figure V-4 can be encapsulated into one 


ا 


ton 


ul 


2+ + 1 1 statement. COND is efficient Since it 


evaluation at the first true statement. By carefull 


te? 
τς 


ordering the possibilities shown in Figure ¥-4 the number ot 


unsuccessful checks can minimized. The order shown in 


TYFE EXFFESSIDN EXAMPLE EV ACTION 
LISF atomic 
numeric 5 return 5 
string "hours" return "hours" 
literal avalue call LOOKUP 
EPSP 11st 


special syntax if DEG $89) Call 


3۲۲٢۲۰1 CASES‏ ناخ 


length £ (nat p) ےت‎ ۱۰۱۰۰٦٣٢٢68 
length š ἔν) call 1۳ 110۳ 
list w/bar ( (, bar) ο) call 


EN SFELIAL CASES 


Figure Y-4 — Case Analysis for EV 


Figure V—4 is considered the most sfficient since for every 
call to EV with a prefix or infix expression, which is a 
list, will require 2 or 2 calls to EV to evaluate the 
operator and the operands. In most cases these will all be 
atoms. Having the atomic values checked first, since they 
Will be the operand to EV £ or 3 times more often than the 


lists, takes advantage of LISF’s implementation of the COND 


function. 


Ln 
Cn 


= numeric or string value sent to EV 15 
immediately returned since these values are the same in RPL 
as they are in LISF. The Literal atom, which 15 used to 
represent any of the RFL primitive data types, when sent to 
EV, must be found in the environment so that the value tc 
which it is bound can be returned. This value is obtained bv 
calling the RFL system function LOOKUF with the variable 
name and the environment m (see Figure V-4). If the 
ECL is not found, NIL is returned from LOOKUP, which 
will trigger an error in EV. 

When the expression sent to EV is a list it may have 
zpecial syntax that requires special handling. Most cases 
are identified by a distinguishing tag in the grammar: ‘op’, 
'lsec', ‘rsec', etc. These tags are listed in the global 
variable  SFELIAÓL CASES. Tf the CAR of the expression 5 
tound in the list of SFECIAL CASES the expression is sent to 
EV SFECIAL CASES for evaluation. Otherwise, the length of 
the expression becomes the key to its disposition. This is 
possible due to the modifications that were made to 
"1 1 5۳1 ۷ the grammar (see Appendices A and ΕΒΕ).  Freftix 


expressions are of length 2 from the production 


11 


expression —> {application primary), 
while infix expressions are of length 3 from the production 


expression —5 (expression infix expression). 


With this information EV can call either FREFIXOF or INFIXAOGP 


to finish the parsing and continue the evaluation process on 


the expression. 


There is one exception to the method just outlined. 
Before calling  INFIXOP one final check must be made ‘for 
special syntax to detect the use of the ‘bar’ with an infix 
operator. This syntax is used to combine functions. The 
following expression 

(f (+ bar) q) 
πα function represented by 

Se ο ΙΕ ΕΕ ο (Gg x) ) EDO. 
This closure i5 created in EV SFECIAL CASES. 

The following subsections will illustrate how RPL 
internally translates an infix to a prefix expression, in 
order to maintain a single internal application function and 
provide a high degree of user flexibility. The four step 
mechanism to perform functional application will also bs 
discussed. The process includes: 

(1) the evaluation of the actual parameters 


(2) binding the formal parameters to the actuals ta form 
the local Environment 


(3) the addition of the local environment to the 
function's environment of definition creating the 


evaluation environment 


(4) the evaluation of the body of the function in its 
evaluation environment. 


This application process is the key to the power of RPL. 


2. Evaluate Operands = PREFIXOF and INFIXOP 

These two functions provide the next level of 
parsing required to determine the semantics of the 
expression. Both functions are called from EV with a FPL 
expression and an environment pointer. The operator and its 
operands are extracted and calls to EV are made to ensure 
operands are defined and the operator is defined as a 
function. Completing these checks, the first step in the 
application process is accomplished. Note that no validation 
of operand compatibility with the operator is done at this 
time. If no errors have been encountered, the process 
continues. This is where INFIXOF and  FREFIXOF differ 
sligntly. 


<+ 
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Since the expression in FRHEFIXOP has the synt 
needed by the RPAFFLY function, where the application 
process continues, no further processing is reguired in 
٣٢٢٣٢١۶ (ا‎ ٣ However, since RFAPPLY must handle both prefix and 
infix expressions, before calling RFAPPLY INFIXOF must 
convert its operands into a two element RPL list. Therefore, 
if L and R are the evaluated arguments of the expression 
Originally sent to INFIXOP, the parameter sent to RFAFFLY 
will be the equivalent to the RFL list quse L A). This 
would have the follow internal representation: 

( Erel (1 L) (2E د(‎ 
In summary both  FREFIXÜF and INFIXOF can be 


considered preprocessors for RFAFFLY. In addition, by 
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evaluating the operands, they perform the first step of the 


functional application process by evaluating the operands. 


5S. Binding Formals and Evaluation = REAPPLY 

ΕΡΑΕΕΙ Υ has one primary task, to complete the 
functional application process. To do this it first must 
determine whether the function being applied has been 
implemented in LISF directly as part of the RFL kernel. The 
kernel functions are readily distinguished from user or 
built-in extensional functions by the length of the list 
containing the function's definition. For example the 
function +" و‎ which 15 implemented in LISF directly, 1 
bound to 

(closure +) 
in the environment. The function DELTA is extensionally 
defined and bound to 
(closure x (list x x) EF). 

۲۳۰۸۳۳۱۷۲ passes all built-in functions that have been coded 
as part of the kernel (length 2 closures) to ۳۲۶۳ APPLY 
(restrictive relative closure). For user and extensionaiiy 
derined functions RFAFFLY completes the functional 
application process recursively through EV. 

The arguments to RFAFFLY are the products of either 
miner lLAGP or IMFIXOF. The function and the actual parameters 
have both been evaluated. To complete the application 


process the function s formal parameters, body and 


environment pointer are extracted from its definition 
(closure). Formals are bound to the actuals by using the 
CONS function to create the local environment. The number of 
formal parameters must match the number of actuals. If no 
error is detected, the local environment is consed onto the 
environment Of definition creating the evaluation 
environment. With this new environment the function body, 
which is a Re a can be evaluated. This requires 
د‎ call on EV. Thus recursion is used indirectly to 
make a very powerful evaluation mechanism. 

The following example demonstrates the way RFAFPLY 
completes ΤΠΕ functional application process. Suppose 
RPAFFLY iz called with the following arguments: 

F <= (Closure x (x + 1), Ep-f) 
AA <= 8 
Since F is of length 4,  RFAPFLY knows this is not a LISF 
coded function. The local environment, LE, is constructed, 
LE <= (CONS X 8) = (x . 8). 
The evaluation environment, EE, is constructed, 
EE <= (CONS LE Ἑπ ΕΓ, "αι 
Now EV is called to evaluate the body of the function, 
(EV "1 > + 1 ال‎ P 
^.  Burlt-in Functions Are Handled By BIF-AFELY 
Of the 112 RFL operators, 68 are coded directly in 
LISF. These 68 functions form the kernel of ΠΕΙ. and 54 are 


handled in ΗΙΓ AFFLY. The other 14 operators Πᾶνε unique 
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syntax and are handled in EV_SPECIAL_CASES. The parameters 
to BIF_AFFLY are the same as to REAPPLY: taking both a 
function and its argument in evaluated form. In the case of 
infix operators, operands have to be extracted from the 
argument list. 

As discussed in the previous section the functions 
which are coded directly in LISF are bound to a definition 
represented by a list of IM two. The second element cf 
mis list is used as the key to a very large LISF 
conditional. To find this key the conditional is divide 
into two logical parts, the built-in infix operators 
followed by the prefix built-in operators. Since all =the 
built-in infix operator names are listed globally in the 


list BIFTAG_INFIX, checking for membership in this list 


0 
Ja 


directs the function to the appropriate section 


the conditional. 


ff 


Once the key has satisfied one of arms of th 
conditional, operand compatibility is verified. If πο errors 
are detected the code which implements that operator is 
executed. Otherwise, an error handling mechanism 1s 
triggered which will provide both meaningful diagnostics and 
ے‎ graceful way af unwrapping the process back to the FPL 
command mode. EFL error handling is discussed in detail in 
a later subsection. 

This huge nested LISF conditional can be considered 


the end of the line for any recursion that might have been 
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necessary through the application process. The result of 
this function will find its way back to EV through RPAFPLY 
and either PREFIXOP or INFIXOP. 

From an RFL programmer’s perspective ΠΕ. 15 a 
language with an enormous flexibility. Much af the 
programming power in KFL is achieved through the use of 
special syntax to create programs mathematically. Although 
RPL has 70 operators implemented in the kernel and 45 


it 


11 


extensionally defined, tne language technically nas 


infinite number of operators availabie to the programmer. 


— 
1] 
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This power and flexibility is achieved through special 
syntax. EV_SPECIAL_CASES is called from EV to evaluate 
expressions that have the atom ‘func’, ‘op’, leec’, ‘rsec’, 
ο SE) SESS and item in them. In addition, 
EY SFECIAL CASES provides a mechanism to distinguish between 
the input and internal forms of sets, relations and RPL 
lists and always returns the internal evaluated form. 

From an implementation perspective, EV _ SPECIAL CASES 
became a trap for cases that did not really fit anywhere 
else syntactically. This was particularly useful in the 
implementation of the ‘if’ and ‘iter’ operators. These both 
return a closure. 

The implementation strategy for all special cases 
whose outcome was a function was the same. Each closure is 


created by parsing the expression to capture the semantics 
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of the expression within the new body of the new function. 


The body is another RPL expression. For example, the 


expression 
(lseec + 1) 


would be translated into a closure of the form 
(closure 7x ( 7x + 1 ) Ep). 

This methodology was adopted to implement ‘if’ and ‘iter. 
To preserve the semantics of the original expressicn, 
special syntax was introduced for the body of the closure, 
which would be special cases not available to the user. 
Adding these expressions to the lists  handied Dy 
EV SPECIAL CASES provided the facility to capture the 
semantics of these expressions. The following example wii! 
illustrate the translation that occurs whenever 1 ۲ - 0 


‘iter’ are used: 


Clima. + u s. Gq) 
becomes 
(closure ?x i when (p Px) do ¿(f Ps) elsedo ig Fx) ) En;, 
and 
(iter p — +T) 
becomes 
(closure ὃν ( repeat f untilnot pn ) ) Ep). 
Hy adding ‘repeat’ and ‘when’ to the list of special case 


tags these new syntax forms can also be evaluated by 


EV SFECIAL CASES, where they are parsed and evaluated 


directly in LISF. Note that the ‘repeat’ syntax above shows 


the initial condition for the iteration. The result of 
evaluating (f 7x) becomes the agrument to ‘p’. If the 
predicate is true, "f° is evaluated with the result of the 
lst iteration as an argument. This process continues until 
the predicate fails. The result of the iteration is the last 
value of (f 7x2). This is all done in the REPEAT RPL 
function. 

The rationale Éc esto new RFL expressions tor 
ھت‎ use only was so successful, it became apparent that 
implementation of other operators like ‘red’, an array 
reduction operator, could use the same convention. Since 
“r edi 15 an infix operator and has no special syntax, a 
Slight conceptual problem of where to create the closure 
emerged. All closures that were formulated thus far were 
done in EV_SFECTAL CASES, but these came from cases having 
special syntax. Since the ‘red’ operator had πο special 
syntax, it was inappropriate to create the closure in 
FV SFECTAL CASES. TG be consistent with the desian, the 
closure was created in BIF AFFLY. However, in formulating 
the body of the closure a special syntax is used which can 
be identified and evaluated readily by EV SFECIAL CASES. Tha 
closure created for this operator is illustrated by the 
following example: the expression 

(f red i) 
becomes 


(Closure FA ( reduce FA by f from i )> En). 
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Another choice of implementation would still result 
in the final evaluation in EV_SPECIAL_ CLASES but would 
eliminate a call to BIF_AFPLY. Since what is actually hard 
coded in LISF is the function ARRAY_REDUCTION, the ‘red’ 
Operator could be defined extensionally in terms of the 
special syntax and take advantage of the bindings created by 
RFAPFLY. For example, if the 'red' operator were defined 

red == (func (íf i) Crane 28 (reduce TA by f from i))) 
or 


m7 7 


f red i == (func FA (reduce FA by f from i)? 


tne call to EV from KFAFPLY with ‘red’ and the environment 


0 


Ur 


Ep would produce the same results as what was accomplished 


ΕΤΕ AFFLY. However, this implementation would require the 
error checking now done in BIF &4FFLY to be shifted into the 
function ARRAY REDUCTION. 

Tracing the evaluation of the extensionally defined 
red’ shows the subtle differences between implementations. 
Diven the expression 

εἰ d: 
EY recognizes the infix expression and calls INFIXOP, where 
the ‘red’ is evaluated. The current implementation calls 
BIFAPFFLY since the evaluated form of ‘red’ is 

(closure reduction). 
However, in the extensionally defined implementation ‘red’ 
is bound to 


(closure (f i) (func FA (reduce FTA by f from i)? Ep). 


In the current implementation BIF_AFFLY is called to finish 
the application process directly in LISP, whereas the 
alternate implementation uses the mechanism provided iin 
RPAPFLY. The formals, f and i, are bound to the actuals f’ 


and : Xs The evaluation environment is created and EV i 


ا 


called to complete the process with the expression 
(func 728 (reduce TA by + from i) ΕΕ). 
The ‘func’ tag directs the expression to EV SFECIAL CASES 
where the closure is created. 
The difference in implementation efficiency can be 
studied by using the LISF function BREAKDOWN. — Currently tne 


composition and paralleling operator are defined using the 


"*func' construct as extensionals. 


F. | EXTENSIQNAL MECHANISM 

Almost Ralf the operators in RFL have been implemented 
extensionally. The operators directly coded in LISF either 
were listed as primitive operations by MacLennan (Ref. 21 or 
had a function readily available in LISF which wouid 


hopefully provide a more efficient implementation than the 


extentional definition. The purpose of this section is ta 


2 


discuss the mechanism which the system uses to implement a 


ms 
11 


extensional operator. 
The extentionally defined operator is executed by the 


RFL system taking advantage of the same mechanism that is 


in place to bind user defined functions. When RFL is called, 
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ΕΤ 11 1۱5 91 951 5 have been initialized, (see Figure سا‎ 
G), the system is ready to define the extensional operators. 

During initialization the environment contains all the 
built-in operators which are coded in LISP. these are 
represented by a length 2 closure as discussed earlier in 
this chapter. At this time commands can now be accepted by 
the system. All the extensionally defined operators are 
contained in a list as RPL commands. This list is called 
INTOPS. Using a the LISF function MAFCAR, all extensionai 
commands ars sent to EXECUTE and ultimately bound to the 
environment. After the last extensional operator Has been 
defined the system ready for the user. 

Implementing this ro A was straight forward but 
there were some varibles that had to reset before the user 
waz given control of the system. These are shown in 
Figure کا‎ 

The interesting part of this implementation was the 
ability to try each of these operators during RFPL sessions 
prior to committing them into the list of extensicnals. 
Since some extensionals were built on others, the order tha 


these were actually defined was significant. This was due tc 


ΞΙ 


static scoping. Therefore, some care had to be used whe 
adding new definitions to INTOFS. Future researcn may try 
coding some of the extensionals of this implementaion into 
LISF directly and do a performance analysis using BREAKDOWN. 


This will be discussed in more detail in Chapter VII. 
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ERROR DIAGNOSTICS AND RECOVERY‏ .ها 

The primary consideration for performing error checking 
in the RPL interpreter was to ensure the system would 
Survive common programming errors. If every minor miscues 
were to cause tne RFL system to crash errors like undefined 


fei ables, improper arguments to built-in and user defined 


00 


functions, syntax, spelling and typographical errors, 


ach 
could cause a major 0... -9- costing many hours of work 
و‎ added programmer frustration. Surely a system without 
safeguards to prevent self destruction would be impossibis 
to work with, even in a prototype implementation. Theretore, 
one of the major design decisions in the development of the 
interpreter was to make the RFL system as robust as possible 
and provide meaningful diagnostics to the user. 
1. Error Recovery 


= oar oo ama nam — - Q x co. «τῆ 


LISF = built-in functions are not unlike those found 


0 


in any other language; improper operands are generally 
disaster. A keen awareness of this problem had ta be 
developed ts ensure sufficient type checks were accomplished 
so that user inputs could not create an unrecoverable 
situation. Although Interlisp does provide a means of error 
recovery through its debugging facilities, this is only a 
benefit ta the user who has had sufficient experience with 
the 10:1 2۳1 1 م5‎ break commands (see Teitelman (CRef. 6] tor 


more details). Therefore, it was necessary to build into the 


RPL system a self-contained capability that could detect, 
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diagnose and resume operation, totally independent from the 
LISP error handling mechanism. 

Once an error is detected, the RFL system calls its 
error handling function with two parameters. The first 
parameter is an error code, which is used as an index ta a 
table of error messages. The second parameter is the cause 
of error. The error handler prints the appropriate error 
message and cause of omm and assigns to the global 
Variable  ERROJOKCODE the value of the first parameter. 
ERRORCODE is always initialized to ERRQRFREE before a 
command is entered by the user. rinally, the value returned 
by the error handler is the LISP atom NIL. 

Checking the value of ERRORCODE in strategic areas 
throughout the program prevents both redundant error 
messages and meaningless operations. For example, in the 
Process of evaluating a prefix expression both the operator 
and the operand must be evaluated separately to ensure they 


defined. If any errors are encountered in this process 


Ji 


= 
the remaining code in the prefix expression parse can be by 
passed by checking the value of ERRORCODE before preceding. 

The value of ERRORCOQDE is checked before any 
bindings ars made to the RPL environment. If ERRORCODE is 
mot ERRORFREE the message “Binding cannot be made’ is given. 

The value of the functions that parse either prefix 
Or infix expressions each return NIL if an error occurs. In 


the ΠΕΙ. DISPLAY function, if the LISF value NIL is returned 
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from evaluating an expression, the message ‘Undefined’ wiil 
be ٣ ہچ‎ 

Calls to the error handler and the inspection of the 
value of ERRORCODE is interwoven throughout the RPL system. 


This was impossible to avoid, if the RPL system was to have 


the degree of resiliency desired. To change the Basis of the 


μι 


error handling mechanism used would certainly take 


considerable amount of recoding. This should be unnecessary 


+ 


due to the excellent recoverability shown in the RFPL system 


چیه 
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during testing. 
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RPL suffers from a problem prevalent among many 


pal: 
لا‎ 
i 


extensible languages, its diagnostics are sometim 


meaningless. This is because error checking is performed on 


the operands of the functions defined in the kernel af the 


language. The kernel is a set of functions from which 


r+ 
ffi 
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additional features are implemented. The diagnostics reia 
to calls on these functions, when used explicitly by the 
user, are helpful and descriptive. These same diagnostics, 
when given to a user who is invoking a function defined in 
terms of the kernel, may be of little or no value. 

The diagnostics displayed when an error iz 
discovered while performing a domain restriction illustrate 
a Situation where the system can provides accurate hut 


confusing diagnostics. The operator τς) is defined directiy 


F 
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erms Of the KHFi's ‘filter’ operator as follows: 


p το t == ((p o Hd) لم‎ 7 ET 
The composition operator 'o' is defined using the formal 
parameters f and g as follows: 

o == (func (f g) (Tune x (G 07 
4 user who is unfamiliar with these dependencies would 
certainly find diagnostics in teris of p, t, f or g quite 
puzzling if he had never bound these names in his 
environment. 

The more familiar that one becomes with the RFL 
system and the various extended functions, rhe more 
meaningful the diagnostics will become. When given 
diagnostics that appear totally unrelated to what was input 
as an REL command, there is an sxcellent possibility that an 
extended operator is being used.  Frobing the environment 
with some of the features added to RFL as a troubleshooting 
aid (env, val and env f) will help put more meaning inta 
error diagnostics, and enable the user to better understand 
the RFL language. 

o. Errors Can Be Easily ها‎ ٤٠٦ 

The incompatibility between functions and their 
arguments referred to thus far are a direct result of user 
errors. Guarding against this kind of circumstance was only 
part of the problem encountered to make RFL robust. Extreme 


had to be taken not to build potential fatal errors 


(0 


ar 


into the interpreter. This became apparent as the systsi 


Srashed. in areas Originally thought to be sound, during some 


of the earlier RPL system tests. 


As discussed in Chapter III, the functions CAR and 
CDR are used to access various elements of a list. Like any 
other function, these functions are designed for a specific 
type of operand. Calling either function with a non-list 
creates a fatal error. The system was vulnerable to this 
Situation in the eo ee To prevent this type at 
M or. each time the CAR/CDR functions appeared in tne 
development of the interpreter, a list check and/or leng 
check had to performed before proceeding. The code used to 
implement the type checking function, TYFE, for the ΠΕΙ. 
system indicates the caution needed when using these 
functions. This is also evidenced the use GF compound 
statements in many LISF conditionals, where the AND 
statement first performed a list check and then a length 
check before using the CAR or CDR functions. 

Achieving the goal of making RFL robust involved 
much mere than an exercise in anticipating user errors. Lc 


also required a conscientious analysis of every aspect oat 


the interpreter to determine what inputs or results could 


(fl 
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create disaster. Testing thus far has shown that thi 


has been essentially achieved. 


H.  INFUT / OUTPUT 

The input/output functions needed by the RFL system can 
be logically divided into two categories, console [0 and 
file ID. Console IO functions provide a mechanism to input 
EEE commands, display the results of evaluating RPL 
commands, provide error messages and prompt the user for 
input. The file IO functions provides both a facility to 
execute the RFL ‘file’ ODE and gives the user the 
ES to save and recall his RFL sessions. 


IX Console Input/Output 


— — — —— — س‎ — — — — - —[A— — — — 
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IO Originally was the aesthetic desire to elimina 
parentheses not absolutely essential to parsing and command 
execution. This 15 achieved through masking some of the 
required input parentheses and filtering meaningless 
parentheses during output. This eliminated some of the 
awkward syntax that had been introduced in order to use LISP 
as an implementation language (see Why LISP Chapter III). As 
the interpreter developed, afar more important reason fo 
filtering console output was realized. 

The only relief from the LISF syntax during terminal 
input was achieved by the elimination of the outer set af 
parentheses from the RFL command line. This was accomplished 
through the use of the Interlisp READLINE function. This 
function inserts parentheses around a line of input which is 


terminated by a carriage return or the character E 
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Additionally, the READLINE command provides a mechanism to 


enable the user to know when all open parentheses have been 


Closed. This is illustrated in the following example. 
If the user wants to type the command 
(f x == (x + 1)), 
the READLINE function would allow n to entered as follows: 
+ پر‎ == (x + 1). 
When the user types the Sos ine parenthesis after the 1 و‎ 


the the following would be displayed: 


+ w == (z + 1) 


The '"'...' indicates all parentheses have been closed. A 
carriage return at this point will enter the command tor 
execution. Since every RFL expression must be enclosed in 
parentheses, this feature is particularly helpful to the 
programmer. 

τς  'delispify' EFL output, user prompts and error 
messages were printed by a function written to filter 


parentheses by printing lists one atom at a time, using the 


ul 


very fast and efficient LISF ٣۳ Ttüumccion. Thi 
merhodology waz originally used for all FFL output, but had 
to be restricted to prompts and messages. This restriction 
was necessary since the way lisp prints a list proved ts 
unsuitable for printing the internal definition of a 
function. This problem was encountered printing output from 


the RPL ‘display’ command. 


í 
The method chosen to internally represent functions 


made displaying them on the screen impractical and in some 
instances impossible. 

As discussed in Chapter V, each function that is 
either user defined or built-in as an extension of the RFPL 
kernel, has associated with its name the keyword ‘closure’, 
its formal parameters, its body and its environment of 
definition. This 20 which 15 represented as a 
na tE to an a-list in LISP, includes all RFL built-in 
functions along with all S and functions defined by the 
user up to time the function was defined. Frinting this 
environment had to avoided. This was accomplished by 
creating two integrated functions, FRIMT LIST and SHOW_ATOM, 


to screen all REL output, trapping all functions so that th 


11 


environment could be truncated for console output. 

To maintain the user's ability to inspect the 
environment, some additional features had to be added to the 
RFL system. This resulted in a minor modification to the 
grammar and the addition of the function SHOW ENVY. For 
example, typing ‘env’ provides a list of all names with 
their respective internal definitions that are within the 
environment created by the user. Each function, of course, 
would be shown without its environment of definition. To 
display the environment of definition associated with a 


given function f, the command 'env f' is used. 


7۵ 


Two additional features were also added that allow 
the user to view either the internal definition. associated 
with a name or his original input form. This is discussed in 
more detail in Chapter VI. 

2. File Input/Output 

There are two sets of file ID functions used within 

the RFL system. The first set, consisting of the functions 


FILE READ and FILE WRITE, is used to implement the RPL 


‘file’ operator. The second set, added as a user convenience 


ا 


to provide a mechanism to save and recall EFL sessicns, 1 
comprised of the functions SET USER ENV, READ USER DEFS, 
EXIT AND WRITE USER DEFS. Both sets of file IO functions 
utilize the  Interlisp file package commands to access or 
initialize a file, perform desired IO and close the file. 

ΗΕΗ 5 ‘file’ operator is designed to read or writs 
data in its evaluated form. This data is usually a set or 
table. This operator should never be used with functions, 


either directly or indirectly, embedded within a set. This 


J 


. 
a 


would cause the function's antire environment of definit = 


put 


L 
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to be written to a file as a list, one atom at a time. 
Reading a function from a file that was written in evaiuated 
form, not only may be impossible due to insufficient memory. 
but obviates the efficiency of the environment mechanism. 
RPL was designed to have only one a-list represent its 


environment. A&A function's environment of definition is iust 


a pointer to a node within the RFL system environment. 
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In a typical RPL session a user may have a 
considerable amount of time invested constructing numerous 
functions and data definitions. AS a command is entered 
that binds a name to the REL environment, the command 5 
Saved in a separate list that can be written to a fils. When 
read back into RPL, the system executes each command, tnus 
recreating the previous session. 

The user has the flexibility to modify or crea 
files using any available editor. His only constraint is to 


ensure the string EDF appears as the last line of the file. 


Vi 


The EOF string is automatically written το all 5551 ans 
saved in RPL. 

Interlisp operating on UNIX provides a means to save 
Old versions of files as new files are created. The updated 
file will have its file name modified to indicate the next 


Yersion number. Since UNIX only recognizes unnumbered names, 


each updated file created by Interlisp contains two 
directory entriss, one numbered and one unnumbered. 
Interlisp provides the mechanism to manipulate older 


versions CRef. 8: p. 111. 
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WI. USING FRE REL INTERPRETER 
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ñ. INTRODUCTION 

The RFL language is different from any conventional 
language that currently exists. SEMIS of its uniqueness, 
inherent power, and mathematical base, it can be difficuit 
to use at first. But, as en any other language, it can be 
EE red through a study of the underlying concepts and 
hands on experience with the commands. This chapter will 
describe the basic knowledge required to use the prototype 
RPL interpreter developed in this research. It will oniy 
touch upon, through simple examples, the power of such a 
language. Only E dedicated efforts of an innovative user 


= 


rt 


wiil test the system and discover the real potential of 


fti 


relational programming concept. 


BH. GETTING STARTED 
The RPL interpreter exists as a Unix file which consists 


c = σι 


or 77 LISF functions which implement the RFL grammar sh 


۲ 
3 
s 


im Appendix B and tne relational operators described in 
Appendix C. To invoke the RFL interpreter, a user must 
first Rave a basic knowledge of the Unix Operating System. 
He must at a minimum be able to log on with access ta an 


account which contains the "RFL-INT' file. For mor 


لا 


information on the Unix Operating System, see reference 8. 


AT 


When the Unix prompt (4) appears, the next step is to 
enter the Interlisp environment, which provides a shell for 
RFL. Since the interpreter 15 written in LISF, familiarity 
with its basic constructs is desirable, and a necessity if 
ong jis going to explore the LISF code for the interpreter 
itself. See references 5, é4 and 7 for more information 
about LISF and the Interlisp environment. 

Loading the Interlisp environment 15 accompanied by a 
το N delay, but when the environment 15 finaily 
loaded, it gives the user a friendly greeting to let him 
know it 15 ready to accept commands. The only LISF command 
that must be used is ‘LOAD’ which loads a file(s) of 1۳ 


functions. Tnerefore, at the LISF prompt, وا‎ the user 


must type ) 88 ۵ه‎ ٧:1 - 111۲ ٩ - When the closing bracket is 
typed  Interlisp will automatically execute the command. 
interlisp searches the user's directory for this file and, 
when it is found, displays a message indicating the date the 
file was created. Once loaded, another Interlisp prompt 
will be displayed. Now all the functions necessary to 
execute RFL commands are part of the Interlisp environment, 
but of no use to the programmer until he invokes the FPL 
interpreter itself. 

All commands in LISP are enclosed in parentheses oar 
brackets. Just as the keyword 'ilisp' triggers the Unix 
system to load the Interlisp environment, the LISF function 


“REE initializes and loads the RFL environment on top of 
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1 ۲۱۲ 6۶۳1 1 5۳ Thus to begin an KFL session the LISF command 


"ERFL1' is typed at the LISP prompt. Once this command is 


xecuted, the user will enter and remain in the RPL 
environment until the REL command ‘done’ 1s executed. (See 
section I for exceptions). 


When the initialization required by the RFL interpreter 


AU 


15 Completed the user is asked if he wishes to resume 


previous RPL session. This gives the programmer the option 


of having a file of FFL definitions executed that was 


rt 


created either from within RPL or by an external tex 
editor. Caution is advised if the file was created by an 
external editor since no error checking will be done until 
loading such a session for the first time. If there is a 
parenthesis out of place or missing, it could throw the user 
out of RFL and into the LISF error handler. Some other 
dangers are discussed in section I of this chapter. 

If the user answers ‘yes’ he will be prompted for a 


filename. It is appropriate to mention at this point, that 


ui 


an inconvenience exists due to the limited control over 
input/output by the interpreter. When a response 15 
required, or a command is entered, the first character typed 
is fixed, و1۰2‎ 1 cannot be removed from the input butter. 
All characters after the first one can be altered as 
required until a input termination signal is sent. in the 


ΠΕΙ environment, hence the Interlisp environment, this 


Signal is a carriage return or a final closing parenthesis 


81 


or bracket. Thus if the user makes an error, for whatever 
reason, and the filename is not in his directory, RPL will 
inform the user that the file was not found and continue on. 
The only avenue open to the user if this happens, 15 to 
terminate the session and begin again. This is not as bad 
as it may sound, as the next section will point out. 

If the file does exist, RFPL will load and execute ail 
commands in the file, and prompt him for his first RPL 
گنٹک‎ Figure VI-1 and Figure VI-2 illustrate the command 


sequence which would load EFL with and without a previous 


session, respectively. 


C. SESSION TERMINATION 

When the user is finished with a session he types the 
command ‘done’. This command triggers a series of options 
available to the user. First, he will be asked if he wishes 
to Save the session just completed. If the answer iz yes ne 
Will be prompted for a filename. APL will write ail 
commands executed in the session, in their origina input 


form, to that file. ‘Display’ commands are not included. 


wdless of nis answer to the first question, the user 
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is then given three options: exit to the Interlizp 
epviicnnent,. exit to the Unix Operating System, or begin 
thar RPL session. If he chooses to begin another sessian 
he will be asked if he wants the current environment fram 


the session he 15 leaving to be cleared. After completing 
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ISl ΜΕ ΕΙΡ. ΠΕΙ δι... i‏ 
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Figure VI-1 -- Loading the RFL Interpreter, With Previous Session 


the action required by the user’s response, the RPL 
interpreter begins the same cycle as if the user was 


beginning a new session. This cycle continues until the 
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Figure VI-2 -- Loading the RPL Interpreter, Without Previous Session 


user decides to completely exit the RFL environment. 
Figure VI-3 illustrates a session termination sequence where 
the user wishes to remain in the RPL environment. 
Figure VI-4 shows a user termination with exit to the Unix 


Operating System. 


D. EXECUTING COMMANDS 
RPL commands are derived from the grammar in Appendix RB. 


it allows for three basic types of commands: data 
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INPUT FILENAME 
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DO YOU WANT TO SAVE ENVIRONMENT FOR FUTURE USE? iy/n» y I 
INPUT FILENAME i 
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Figure VI-4 -- Session Termination - Exit to Unis 


definitions, function definitions, and input/output. The 
sections following this one will -describe how to enter the 
commands of each type and provide a brief discussion of the 
built-in relational operators. This section will provide 
some general information and guidance. 

RFL operators and commands are case sensitive. Since 
most operators and all commands are in lowercase, it is 
recommended, though not required, to use lowercase letters 
throughout an RPL session. Lowercase was used to hel 
distinguish the operators and commands from LISF function 
names, which are capitalized. Any variation at the keyboard 


will cause RPL to return an error. 


E. DATA DEFINITIONS 
1. Introduction 


There are several data types available to RPL. In 


addition to the normal scalar types, integers, reals, 
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booleans and strings, there are sets and relations. Set 
and relations can be used to represent any conventional data 
structures such as arrays and records. They can also easily 
represent more complex structures such as matrices, 
databases, trees and graphs. à relation is actually a 
special form of set where each element must be a pair of RPL 
data types. The tremendous flexibility of the relation 
results because this pair can be any combination of RPL data 


types. 
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RPL syntax allows the binding of a name to any 
Scalar type directly. For example: 
x == 3 
cero -- ٢٢ = 
name == "John" 
The '--' symbol in RFL means ‘defined as’. 
2. Sets 
A set is defined simply by placing the keyword 
‘set’ as the first element of the set. For example: 
aset == (set 1 2 "dog" colors] 
The 1’ symbol, used to close the defintion, keys the 
interpreter to execute the command. This aspect of the 
command line will be discussed further in section δ. Note 
the name colors must have been previously defined or ۰ 
error will result. In this case, colors may have been 
defined as: 
colors == (set "red" "white" "blue" j] 


This illustrates that each element of a set can be anything, 


even another set. 


<=“ 
وت 


Relations 


Any relation can be defined in RFL using the 
following syntax: 

۲ << πα] ٩٣٢۰ د‎ τς. Ye) 2. (Xn ۶ Yn) I 
The X's and Y's can be any RPL data type. The ':' symbol is 


binds any particular X and Y 


the pair-making operation. It 
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together into a pair, distinguishing it as an element of the 


relation. Note that there must be a space on either side of 


the operator. This is required because this structure 15 
treated internally as a LISP list. If a space is left out, 
an RFL error will occur. 

To demonstrate the utility of this structure, a 
sequence, an array and a record will be defined below: 


sequence == (rel (i 


2 ολ) (δε 3) 265 05:3 
array == (rel (1 : "a") (2 : "b") (3 : "c") j 
record == (rel ("#" : 101) ("name" : "John"? ("age" : 52} 


Even more complex data structures can be formed easily by 
combining these and other primitive relational structures. 
For example, a database is just a set of records. Since 
there are so many different forms of a relation, RFL has 
included syntax to simplify the definition of two of the 
more common ones, the sequence and list. 


4. Sequences 


-p 


The relation ‘sequence’ shown in section 3 can ΠΒ 
entered as: 
sequence == (seq. 2 لت‎ 
It must be pointed out that this is a pure Sequence, 1.8., a 
relation which has one initial element, one terminai 
element, and 1s fully connected. Formally, it is an 
irreflexive connected bijection. Graphically, this sequence 


can be represented as shown in Figure VI-35. 
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The label that is put on a node is not important, so the 


sequence, (seq 3 210979), is equally as valid as the one 


Figure VI-S —- Graphic representation of a sequence 


shown in Figure VI-S5. However, RPL does not prevent the user 
from entering: 
sequence == (seq 3 2 10 ? 2 7 7 8) 


This is an invalid sequence and 15 represented graphically: 





Therefore, it is up to the programmer to insure that he is 
defining a proper sequence. The sequence operators do not 
verify that the structure passed to them is a valid 
sequence. When this occurs, an error can result, the 


results can be meaningless, or at worse the computation may 


not halt - forcing the user to abort the session and lose 
everything. For this reason, caution is advised. Ün the 
cther hand, the lack of rigidity in sequence definition 


permits the easy representation of certain types of directed 


graphs, as the example above points out. 


go 


The list is just a restricted form of an array which 
has a starting index of 1. An array, on the other hand, can 
have any integer as a starting index. The relation ‘array’ 
shown in section 3 is also a list and can therefore be 
written as: array == (list "a" "b" "c'"]. 

The most common use for the list, and the reason it 
is included as a -272- 02557 in RFL, is to represent 
A e ncn lists. All multi-parameter functions in FPL are 
represented internally in prefix format and use the list as 
their argument. 

6. Ranges 

To simplify the data definition further when dealing 
with large numeric structures, the setrange, seqrange and 
listrange syntax 15 provided. For example, it is possible 


to define: 


5 == (setrange 1 to 38] 
s° == (seqrange 1 to 301) 
lst == (listrange 10 to 60] 


These definitions evaluate to the appropriate internal 
forms: S would be a set of the integers from 1 to 0, s5 
would be a relation which relates each number with its 
successor, up to SN, and lst would be a relation which 
relates an index, starting from i, to each value from 10 to 


6. The utility of this syntax becomes apparent when one 
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thinks about what is involved if these structures had to be 
entered using the general relation syntax. 

The input forms discussed in this section can be used 
effectively within the RPL interpreter to create any form of 
data required. Sometimes it may be more convenient to use 
the simpler sequence and list syntax than the more general 
relation syntax to define a desired data structure. For 
example, suppose the NE eS a five element array which 
EU ined even numbers starting with 2, and which was 
indexed starting with 14. Internally, the desired structure 
would look like: 

(rel (10 2) (11 4) (12 6) (15 8) (14 1@)) 
With the relation syntax the user would have to write: 

a == írel (10: 2») (11: 4) (12 : 6) (15 : 8) (14 : 10} 
He could achieve the same result by using the sequence to 
array operator, sa, which takes a sequence, and a starting 
index as arguments, and returns the appropriate array. Thus, 
he could have typed: 

a == ¿((seq 2 4 & B 10) sa 101 
Which method is easier must be decided by the user and 
depends upon his degree of familiarity with RFL. Note, 
however, that the second format has less parentheses and 


spaces to contend with! 
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F. FUNCTION DEFINITIONS 


Although RPL contains a rich set of built-in operators, 
it could never include everything, nor should it, that a 
user could want. RPL is extensible and thus includes a 
mechanism for defining user functions. As illustrated in 
earlier chapters, there are three definition options: 
direct, prefix and infix. Most user functions can be 
defined using the ο prefix and infix syntax. For 
Meier if the user had a need for a function which would 
add 2 to its input and square the result, he could write: 
add@sqr x == ((x * 2) times (x + 2)1 
For a similar, but more general function, which takes two 
arguments he can write: 
x addsqr y == ((x + yd) times (x + yd 
An alternate definition for addsaqr could be written E. 


the DELTA operator, which duplicates an argument, and the 


composition operator: 


x addsoqr y == ((times o DELTA) (x + yd 
A third, and even more formidable looking definition is 
Given by: 


addsqr == ((times o DELTA) o (op +)) 
The last two definitions introduce the ebrius of RFL by 
showing how complex functionals can be easily defined ۰ 
terms of Built-in and/or user defined operators. 
There are some cases, however, where the prefix and 


infix definitional syntax will not meet the user's needs, 


and therefore the direct method for defining functions 15 
included. One utility of this syntax is its ability to 
define functions with any number of parameters. For 
example, say a function called addsub is desired. This 
function adds its first two arguments and subtracts the 
third. It can be defined via the direct method as: 

addsub == (func (x y z) (Cs + yd - 2] 
This is just another way to write: 

addsub (x y z) -- ((x * y) — z) 

Notice that the argument to these functions must be a ΠΕΙ. 
list with three elements. The advantage of the direct 
syntax over tne prefix-type syntax is the ability of the 
‘func’ definitional structure to be imbedded within another 
function. This gives RFL the same flexibility as LISF with 
its ‘LAMBDA’ expression. 

This same function could be defined using the prefix 
syntax, but the user must be aware of how RPL extracts the 
actual values from the argument list in order to bind its 
formal arguments to the actuals. This extraction is done by 
uss of the RFL 'sel' operator. Thus when given a table and 
a member of its domain, this operator will return the first 
member in the range related to it. Equipped with this 
knowledge and familiarity with the list structure, the user 
can also define addsub in prefix form as: 

addsub x << ) ) د)‎ sel 1) + (x sel 2)) - (x sel ο} 


This form and the direct definition are equivalent and will 


work equally as well, but it is obvious in this case that 


the direct method is much simpler and more understandable. 


5: INPUT /OUTFUT 
1. Screen Input/Output 

All syntax presented thus far is for commands that 
will be typed at the terminal in an interactive session as 
input. Output at the .screen is generated using the 
‘display’ commands. To recall to the screen any definition, 
the user can type the word ‘display’ followed by the name of 
the entity he wishes to see, e.g., 

display array  zUR- 

Motice that this is the first time that the requirement for 
a carriage return, ΟΠΣ, has been indicated. This is 


because the definitional forms discussed earlier ended with 


a 1ل‎ which automatically triggers execution. For commands 
such as display, and those that are ended with a ‘}’, a 
<CR> 15 required. Execution of the command above will 
display the definition bound to the name ‘array’ in the 


environment. For example, it might be: 
array == (list "a" "p" "c") 
The display command can also be used to see the result 


Of a computation immediately, but once displayed, the result 


1 5 lost because it will not be bound to a name. For example 
if the user types ‘display (3 + 3)’ , 'B' will be shown. 
Thus 'display' can have any expression as an argument. To 
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simplify output to the screen, the word ‘display’, and two 
shorter versions, ‘dis’ and 'd', are EIS Thus, only 
the expression itself needs to be typed to display a result. 
2. File Input/Output 
Any data definition can be saved to a file for 
future use simply by typing: 
file "tablei" == t «ΕΒ; 
This command assumes hat t has been previousiy defined, 
m. . as a table of squares for a finite range. To later 
read that table into another RFL session, the user can type: 
tbl == file "tablel1" «ΕΒ» 
Since file input/output is implemented as a special command, 
it can also be used directly in an expression. For example, 


the command "((fi1ile "tablei") sel 2)” would return ‘4° for 


the table of squares mentioned earlier. 
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3. Debugging 

The final form of output to the screen in RFL was 
implemented to assist debugging. Since a function 
definition can involve the composition of many operators, 
both built-in and user defined,  cause-of-error  messaaes 
might give a strange response. This happens because the 
cause of the error may be rooted in the execution of one o? 
the internal component functions within the definition. 
Likewise, there will be times when the user passes an 
argument to a function, but it is rejected as the wrong 


tyne. On these occasions, it 15 nice to be able to probe 


deeper into RPL. The ‘val’ and ‘env’ commands provide this 


mechanism. 


ΤΠΕ ‘val’ operator applied to any name will return the 
evaluated form of the definition bound to that name. Thus, 
if s 15 bound to the sequence (seq 1 2 3), typing ‘val 5 و‎ 
will return ‘(rel (1 2) 2 Similarly, for the 
function sum, defined as (x * y), typing ‘val sum’ would 
return ‘(closure x ((x ai 1) + (x sel 2))) '. Notice the 
environment of definition is missing. AS discussed in 


earlier chapters, the environment is omitted due to its 
excessive length. 

The ‘env’ command provides the mechanism to view the 
environients that are omitted from the display of functions 
in evaluated form. The environment is shown in definitional 
form. Thus, "env’ alone will produce all definitions 
created during the current session. Applying ‘env’ to a 
function name will produce all definitions visible within 
its scope. For example, the result of typing ‘env’ for a 


short RPL session might be: 


f == (lsec (times o DELTA) img)? 
5 == (set 5 ó 7 8) 

x Sum y == (x + y) 

arg == (list 2 4) 


System Defined Functions 
The last definition put into the environment is shown first. 


“System Defined Functions’ constitute all of the built-in 
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function definitions within RPL. Finally, using the same 
environment, typing ‘env sum’ would return: 

x Sum y == (x + y) 

arg == (list 2 4) 

System Defined Functions 
H. RELATIONAL OPERATORS 

In the RFL interpreter there are 112 built-in relational 
Operators based upon the operations described by MacLennan 
ιαπ reference 5. All the operators implemented within the 
RFL system are discussed in detail in Appendix C and are 
broken down into classes based on both the number and type 
Of arguments, and what they return. 

The operators are a mix of first and higher order 
functions.. A first order function is one that has data for 
inputs and outputs. A higher order function is one that has 
a first or higher order function as either input or output. 
Since ΠΕΙ. has several higher order functions they are 
further separated into two classes: those which return a 
function, and those which have a function as an input, but 
return data. 

Finally, there is a group of operators which are unigue 


because of their special syntactic requirements or their 


special handling required in implementation. They are 
consolidated under the title of ‘Special Operators’. They 
include the data definition operators, a conditional 


functional, an iteration functional, a function to compute 


97 


Closures, the empty operator, and the ‘bar’ functional which 
gives any infix operator a special meaning. 

Based upon the preceeding discussion, the operators are 
broken into 11 logical classes as shown in Figure VI-46. The 
Global class of operators include those which take anything 
as an argument (s), or in the case of ‘hd’ and ‘tl’, return 
anything. The Arithmetic and Logical operators parallel 
their conventional counterparts. The next five classes are 
derived from the type (form) of the relation  invoived. 
Finally, there are the two classes of higher order 
operators, and the special operators. 

1. Global 
2. Arithmetic 
5. Logical 
4. Set 
3. Relation 
6. Sequence 
7. Array 
8. Database 
9. Higher Order چو‎ Return Function 
ið. Higher Order —- Return Data 


11. Special 


Figure VI-6 —— RFL Operator Classes 


I. BEWARE THE KEYSTROKE 
1. Introduction 
Unfortunately, because the RFL Interpreter is 
running within the Interlisp environment and the Unix 


Operating System, there are a few keystrokes which may cause 


unexpected results. Some keystrokes should be avoided, some 
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should be used with caution, and some can be used to the 


user's advantage. 


2. Ihe Control-D (^D? and Control-C (^C? 

Pressing a ^D should be avoided. It will abort 
whatever LISP function is being executed, return the LISP 
prompt and wait for the next command. Since the FFL 
interpreter is invoked as a LISF command, a “Ὁ will 
immediately  abort the ےو‎ RPL session, discarding all 
ork done to this point. Likewise, only more severe, 
pressing a ^C will abort both RFL and Interlisp and return 
the user to the Unix Operating System. 


The “Ὁ and "C are used, however, as part of the RFPL 


system to exit the RPL environment. They are options within 


الا 


the RPL ‘done’ command and should be used only in thi 
context. In general the Control key should be left alone 
since there is no meaning associated with control characters 
in RFL, and they may cause  Interlisp or Unix to do 
unexpected and probably unwanted things. 


— 


=. Ibe Backspace Key 
A second key to be avoided is the backspace key. 
For reasons not totally understood to date, pushing the 


backspace key causes Interlisp to invoke the LISF error 


handling package. A strange message appears on the screen, 


which looks something like ‘broken below OGETTY' and a ʻi’ 
prompt will appear. Fortunately, this is not the kiss of 


death as was the ^D. Typing “RETURN NIL’ (in capitals? will 
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return the user back to where he was in RPL before hitting 
the backspace key. If another strange message appears 
followed by another " : then the user probably hit the 
backspace key more than once. A ‘RETURN NIL’ must be typed 
for each time the backspace key was hit, and only then will 
Interlisp return the user to RFL in the place it lett off. 
There is one instance in which this keystroke 


becomes an advantage. It can used to temporarily leave the 


RFL environment to invoke any  Interlisp feature. Of 
particular interest is the ‘BREAKDOWN’ package. This 


package allows the user to do performance analysis of the 
LISF functions used within the ΠΕΙ. interpreter. A more 
detailed discussion of the benefits of this package will be 
presented in the final chapter. This feature of RFL is of 
real interest to those individuals who are interested in 
further research with relational programming and the 
improvement of the RFL interpreter. 
4. ihe Control-z (^Z) 

The final keystroke to be discussed is the least 
dangerous, and in fact has a positive utility. Hitting a 
Control-Z (^2) will temporarily suspend whatever the user is 
doing and put him back at the Unix logon level. The user 
can then execute any Unix — desired, e.g., he could 
look at his directory to verify the filename of a session he 


wished to load. When he is finished at this level, he types 


(lowercase letters only) and returns to the exact place‏ وم“ 
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he had left off when he pressed the ^Z. Thus the programmer 
can take advantage of the facilities, flexibility and power 
of the Unix Operating System concurrently while executing an 


RPL session. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 


The primary goal of this prototype RPL implementation 
was to provide a mechanism for future research. Prototypes 
generally have a definite starting point, which is the 
theoretical work of its creator, the language developer. 
What marks the 233177 ٦ of the prototype is a design 
EISE that must be made. Along these lines, one of the 
most difficult dilemmas facing this implementation was 
handling implementation improvements that became obvious as 
the development progressed. Without exercising restraint, 
implementation improvements can become an obstacle to timely 
completion. Unless specific performance criteria have been 
set as a system design requirement, and it can be determined 
that a particular mechanism of the system must be changed to 
meet this objective, improvements that become obvious to the 


2۳ 10۵1 2و۷‎ developer should be documented for follow on 


research. Focus on design issues can easily become blurred 
and transition between prototype and future research 
obscured as improvements that become apparent to the 
developer divert efforts from the original goal. Let the 


completion of the prototype be the springboard to 
enhancements and efficiency issues. 
Future research on RPL was one of the primary 


considerations in this prototype, which, as discussed in 


107 


Chapter III, prompted its implementation in LISF using the 
Interlisp environment. Tools available in Interlisp were a 
powerful incentive that influenced the choice decision of 
the implementation language used for RPL. The cost of this 
decision, however, was more than anticipated. 

Using the  Interlisp programming environment can be a 
very frustrating experience to a programmer. Documentation 
available (CRef. 6] and Ref. 81) assumes an Interlisp users 
d expert LISP programmers. The system, called  HELFSYS, 
which is usually a integral part of Interlisp system 
providing online help messages to the user 1 5 not 
implemented for UNIX 4.2. These obstacles result ina steep 
learning curve to one who desires to use Interlisp without 
LISP programming experience. Only hindsight can say that the 
Struggle and frustration needed to become productive in this 
environment were well worth the effort. The impact of seeing 
these powerful tools in action was an experience that 
paralleled viewing a rare piece of art that one had only 
previously read about. 

Tt is incredible to watch the speed with  wnich a 
database is created by MASTERSCOPE on the RFL system, which 
consists of 77 LISF functions. The information available 
through queries to this database provided the basic 
documentation (that was only amplified slightly) for every 


function shown in Appendix F. 
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This feature of Interlisp will be a definite asset to 
future research. The effects of changing a particular 
mechanism within the RPL system can be determined by making 
a few database queries. Figure VII-1 shows how the 
information was obtained for the documentation listed in 
Appendix F for a single function and illustrates a few 
simple queries. By substituting the function name with ‘all’ 
in the first query, eM N in the database will be 
describen 

Before making specific changes to an existing 
implementation of an operator or system mechanism some 
cencrete data may be needed to verify perceived problem 
areas. This performance data is readily available through 
BREAKDOWN. The next section will illustrate this mechanism 
and demonstrate the use of the otherwise disastrous 
backspace key as an RFL interrupt, allowing the programmer 
to enter LISF commands for debugging, editing and/or 
nerftormance testing. Note that the message 

Fr interrupted below READF 


(READF broken) 


will occur when the backspace is pressed at the RPL prompt. 
The ':' prompt is the LISF break prompt and the programmer 
has the freedom to execute any LISP command. The command 

: return NIL 


will restore RFL to the same position where the session was 
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1۳0۱22۳۲ ۳20 Note that the system will not ۳61 50 1 5۷ the 
line, therfore the cursor will be on the first column of 
what appears to be a blank line. 

The array reduction operator was implemented in LISP 
as part of the kernel. The main consideration for the LISP 
implementation was to make the operator more efficient. The 

zxtensional definition suggested by MacLennan [Ref. 2 p. 653 
using a ‘while’ 99 Painfully slow. The current 
.. 0 takes advantage of the fact that both 
operands Rave been evaluated at the time the closure is 


made (in BIF_APFLY). Therefore, the expression formed as the 
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body of the closure has the operands in evaluated form. A 
discussed in Chapter S, this operator could have been easily 
defined extensionally. In this implementation the operands 
have to be evaluated in ARRAY REDUCTION. The results af a 
performance test using BREAKDOWN is shown in detail in the 
following section. ΠΕ particular note was the minor editing 
Of the function ARRAY_REDUCTION that was done in order tog 
perform the comparison. 

This type of analysis can be done for the composition 
operator and parallel operators. These operators are 
currently implemented  extensionally, and both operators 
return closures. With the extensional implementation input 
errors are not detected until the function is applied. 
Adding 'o' and ii to the kernel may enhance RPL efficiency 


considerably. 


The design of the RPL system allows the addition of 
operators to the kernel without a major coding effort. By 
grouping operators in BIF APPLY according to the operand(s) 
requirements, error checking for most operators is already 
in place. Of course an infix operator Being changed from an 
extensional implementation to the kernel will have to have 


its extensional definition removed from INTGPS and 


fli 


representative em E added to SYSYOFS, as well as 
T ma its mame added to the list BIFTAG_INFIX. 

Much work remains to be done to determine which set of 
operators is best suited for the RPL kernel. This may be 
answered through a systematic analysis of this prototype 
with the tools provided by ا تر‎ More efficient 
implementations of some Kernel operators is also likely. 
Additionally, follow on implementations will have mors 


flexibility with RFL notation if a character-at-a-tiime 


parser is adopted. 


A. USING BREAEDDOUWM 

1١ order to illustrate the power and flexibility 
available to do performance analysis, edit functions and 
create a history of the work performed, the following 
example was created. This example will use the UNIA function 
‘script tO record the terminal session. In this session the 
factorial function will be defined in terms of the RPL array 


reduction operator. This function will be used as a 
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Script started on Tue Jun 11 21:04:52 5 
۶ 88 
ISI INTERLISP 15-NAY-B4 ... 


Good evening. 


_load{rpl-int) 
File Created: 8-JUN-85 13:39:37 


RPL-INTCOMS 
expanding LISTP, 55528 used, 2424832 before BC 
/work/aitton/RPL-INT. 32 


_ 13512۲ 560021 
Nasterscope 29-HAR-84,.. Type HELP<cr> for com@and susmary. 


_, ANALYZE FUNCTIONS ON RECORD 
expanding LISTP, 1218022 used, 2259295 before OC 


.. DESCRIBE EV 
FV[EXP,E1 
calls: NUMBERP,STRINBP,ATOM,MEMBER,LDOKUP ERROR HANDLER, 
EV SPECIAL CASES,LENBTH,PREFIXOP,INFIXOP 
called by: EXECUTE,DEF BINDING,DISPLAY,EV SPECIAL CASES, 
MAPEV,EVSED, INFTXOP,PREFIXOP,RPAPPLT, 
ARRAY REDUCTIDN,RPL REPEAT,MAKE UNIGUE 
binds: K, TAG 
uses free: SPECIAL CASE! 
NIL 
_ WHO CALLS ERROR_HANDLER 
(DISPLAY EVRANBE EVSEQ RPAPPLY ARRAY REDUCTION MIN SET 
RPL REPEAT EXECUTE EV EV SPELIAL CASES 1108 ۰۳۲ 
BIF APPLY ARRAY CONCATENATION HEAD MAY SET MEM 
.. BHO USES ERRORCODE 
(RPL ERROR HANDLER FILTER REA 
DISPLAY EV SPECIAL CASES EVSE 
. BIF. APPLY RPL REPEAT) 
.. ۵ 6٢٤ 
(RFL ERROR HANDLER FILTER READ USER DEFS! 
UK 
MIL 
ç “ῃ 


ند 


FS DEF BINDING 


D USER DE 
Q INFIXOP PREFIYOP RPAPFLY 


script done on Tue Jun 11 21:23:82 1995 


Figure ViJ-1 -- Example of LISP’s Masterscope Feature 
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benchmark to examine the ‘red’ operator implementation. The 
current implementation of ‘red’ is done in LISP using the 
techniques described in Chapter 5, and will be compared toa 
two extensional implementation. 

Amplifying remarks for notes in Figure VII-2: 


1. The file  'brkdwn.sess' initialized by the UNIX 
‘script’ function to record the terminal session. 


HJ 


. RPL system functions. are loaded into Interlisp. 


4 


x The command ' BREAKDOWN’ followed by a list of 
functions will internally mark these functions for 
monitoring in the performance analysis during the 
session. 


" 
u^ 


4. Factorial function defined as a benchmark. 


zs ‘Backspace’ (B5) key causes an interrupt to the RPL 
session. 


6. The command ‘breakdown J)’ will zero internal counters 
for the performance analysis. This is done so that 
any data accumulated during RPL loading and the 
definition of ‘fac’ will not distort analysis. 


7. The command ‘brkdwnresults(€1]’° 15 used to verify that 
the counters are zeroed. 


B. The command ‘return NIL’ is used return to RFPL. 

?. The RPL command ‘(fac 53)’ is entered for benchmarking. 

10. BS interrupt (See #5). 

11. The data generated from BREAKDOWN is retrieved. 

12. The LISP editor is used to modify  AaRRAY REDUCTION. 
This 1S necessary since + and 1 are passed in 
evaluated form in the current implementation. 

13. Return to RFL (See #8). 

14. An extensional version of the array reduction operator 


is defined, and a factorial function using this 
operator is defined. 
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BS interrupt (See #5). 

Counters are zeroed using 'breakdownLl1' command. 
Return to RPL and benchmark program ran ('facext ). 

BS interrupt (See #5). 

Ferformance data is obtained. 

Return to RFL (See #8). 

Array reduction is defined by translating the 
definition used Dy Maclennan [Ref. 21. This 
illustrates the shift in the use of sequences to lists 
as functional arguments. The poor preformance shown 
below led to the implementation used in the first 
example. 

BS interrupt (See #5). 

Counters in BREAKDOWN zeroed. 

Return to RFL and benchmark program ran (FAC). 

BS interrupt (See #5). 


Ferformance data is obtained. 


“C° terminates the Interlisp process and returns the 
process to UNIX. 


"^D" terminates the session and writes 'brdwn.sess'. 
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15. 


T6. 


I7. 


18. 


py. 


20. 


28. 


۱ NOTE 
1 script 5 l 


Script started on Sat Jun 2 12:46:89 1985 
1 ilisp 
ISI-INTERLISP ٦٥ 


hi. 

]oad[rpl-int] 

File Created: d-JUN-85 04:04:45 
RPL-INTCOMS 


ra 


expanding LISTP, 65920 used, 24248312 before GC 

/work/mitton/RPL-INT 

breakdown (EV EV SPECIAL CASES RPAPPLT INFIXOP PREFIXOP BIF APPLY] -3 
(EV EV SPECIAL CASES RPAPPLY INFIXDP PREFIXOP BIF APPLY) 

801 

Loading RPL--- DO YOU WANT TU RESUME û PREVIOUS RPL SESSION? ¿y/n? N 


RPL INTERPRETER ON LINE!! 
72 fac n == ((lap times) red 1? (Iistrange 1 to n] 4 


?; interrupted ۵۶1۷ 7 


cn 


(READ? broken) 

۲23100۷0] [ b 
[EV EV SPECIAL CASES RPAPPLY INFIXOP PREFIXOP BIF APPLY) 
:brkdwnresuIts[) 


FUNCTIONS TIME 13 CALLS PER CALL (1 
EV 0.0 0 8.0 0 
EV SPECIAL CASES 


0.0 0 0.0 0 
RPAPPLY 0.0 Ü 0.8 0 
INF ۲ 0.0 0 0.0 Ü 
PREF I X0F 0.9 Ü Ú. Ü ü 
BIF APPLY 0. ü 0.۵ Q 
TOTAL 0.8 Ü 0.8 
MIL 
:۳ ۶۱۳۲ ۲۱۸ B 
READF = NIL 
(fac d] E 
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Figure VII-2 -- FPL Terminal Sessien Usinq 41 
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?) interrupted below READP 13 


(READP broken) 
:brkdanresults[] 11 


FUNCTIONS TIME # CALLS PER CALL 1 
EV 1.12 T 8.817 7 3 
EV SPECIAL CASES 

9.224 3 0. 
RPAPPLY 3 23 0) 
INFIXOP 592 T 0.037 18 


0745557 7 
0 ü 
5 

PREFIIOP 8.948 2 0. 024 l 
۵ 
2 


184348 7 


BIF APPLY J 16 8.055 52 
TOTAL . 28 124 8.16 
NIL 
sedit (ARRAY REDUCTION] 12 
edit 
ΣΕ FNC 
tF FNC 
+0 P 
(SETQ FNE (CADDDR EXP)) 
te 
(CADDDR EXP) 
*(-] EV) 
*(H EA] 
+F 
(EV CADDDR EXP ER) 
181 د‎ 3 
+P 
(EV (CADDDR EXP) EA) 
*F START 
+P 
. START (CADDDR $)) 
1۷ ۵ 
(SETA START (CADDDR &)) 
نکی‎ 
05ا0ا0ا۷8]‎  )])008 (۱ 
ο 
#(N EA] 
+P 
(EV CADDDR (EDDR FIP) Eñ) 
#BI 2 3 
+F 
(EV (CADDDR >) EA) 
0 
ARRAY REDUCTION 
return NIL 12 
READP = NIL 


Figure ۷۱-2 -- RPL Terminal Session Using BREAKDOWN (continued) 


Lil 


13 


t redext i == (func ἡ (reduce ?ñ by f from i] 


?> facext n == ({(op times) redext 1) (listrange 1 to n] 
?> interrupted below READP 


(READP broken) 

: 9۲ 53۷00801 [ 

(EV EV SPECIAL CASES RPSFPLY INFIXOP PREFIXOP BIF_APPLY) 
:return NIL 

READP = NIL 

(facext 5] 


8 
?y interrupted below READP 


(READP broken) 


:brkdanresultsi] 
FUNCTIONS TIME # CALLS PER CALL 1 
EV 1.184 b? 8.2175715. 35 
EY SPECIAL CASES 

8.04 4 0.055 
RPAFPLY 0, 252 23 0.015203; 1 
TNFIZÜP 0.56 14 0.035 17 
PREFIXOP 8.4 2 8.035? 2 
BIF APPLY 0.75 13 0.054 29 
TOTAL 5,044 124 8817 
HIL 


:return NIL 
RESDP = NIL 
s] -- (rsec sel 1] 


mt 
n 


Lf 


Ων s 


t% p == (írsec <>; eapty) o 52] 
?5 ede == ((I1 (V bar) lun ao epsilon)) a s2] 


?5 arg 77 (l1 f (El o epsilon] 


72 # RED i == (sl o l(CCG o arg) :i cdr) o DELTA) while p) o ilsec i ,] 


Mn 
7 


& à= 


?? FAC n == (flap tiaes) RED 1) !listranqë 1 to n] 


7? interrupted below READP 


Figure VII-2 -- RPL Terminal Session Using BREAKDOWN (continued? 
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27 
28 


(READP broken) 
:breakdosnt] 


(EV EV SPECIAL CASES RPAPPLY INFIXOP PREFIXOP BIF APPLY) 


PER CALL 1 
8.9188974 4 


0.0547879 8 
8.8198108 14 
8.84804786 9 


0. 3288 12 
0.055758b 17 
0. 02577536 


:return NIL 
READP - NIL 
(FAC 3] 
128 
7۶: interrupted below READP 


(READP broken? 


: BREDUNRESULTSL 
FUNCTIONS  TIMETIME — # CALLS 
EV 9,392 197 
EV SPECIAL CASES 

1.888 5 
RPAPPLY ο 161 
INFIXOP 2.064 5 
PREFIXOP 8 0 
BIF APPLY — 2.872 5 
TOTAL 25,214 909 
NIL 
BD 
i^ 


script done on Sat Jun 8 13:82:33 1985 


Figure VII-2 -~ RPL Terminal Session Using BREAKDOWN (continued) 
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APPENDIX A - ORIGINAL RPL GRAMMAR 


66881011 = command done 


prefizid | identifier, = expression 
command = : 
display ezpression 


f [ezpression infiz| application 
eIpression = در‎ 
superscraphon 


f application] primary 
application = ۱ ۰ : { 
iter | prmmary — primary | 
application 
superscription = eZpression sup + 


* 


literal 
prefizid 


infir 
infiz primary 
| primary 57 


primary primary ; primary 


primary = |( ezpresston |.. ezpression| ) 
[ ezpression [.. ezpression| } 
Korma ۱ > 
| file string 


ifi = infirop bar| 


letter . 
identifier = letter prime 


digit 
prime = 
digt” |. digit”! 
string 
(teral = ue 
false 
string = “ char ” 
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infizop = 
sel|,: cup member nomem !subset subset = -> <- restr; cl cr cap \ 
@ hat ! cat @ .|| $red + - times divide != < > <= >= 
andsign orsign cart 


identifier 
prefizid = prs 
prefizop = 
- un cur unc theta size str DELTA inv dom rng mem Lm Rm Mm run lun bun 
init term alpha omega ALPHA OMEGA min max mu index select join as sa sa0 
rp rpi rsort sort unimg al] ssm img curry uncurry PHI Id while upsilon 
phi delta PI extend restrict wig not 
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IMPLEMENTED RFL GRAMMAR 


APPENDIX B — 


(command)* (done) 


prefixid [identifier] == expression 
identifier infixid identifier == expression 
file string == expression 

[display í dis í dl expression 

val identifier 

env [identifier] 


(expression infix expression) 
application. 
superscription 


primary 
(application primary) 
(iter primary —» primary) 


(expression sup 
(expression sup 
(expression sup **) 


ao cS en 
سال‎ 


literal 

prefixid 

(op infix) 

(rsec infix primary) 
(lsec primary infix) 
(if primary —-> primary 
(rel (expression : expression) اا ده‎ 
(seqrange expression to expression) 
(setrange expression to expression) 
(listrange expression to expression) 
(seq primary ) 

(set primary 
(list primar 
(file strin 
(func formals expression) 
empty 


infixid 
(infixid bar) 


; primary) 


i )‏ 
) د د 


identifier 
(identifier-) 


letter Lletter | digiti* primes 


digit Ll. digit-*i 
String 
true 


false 
"char x" 


identifier 
prefixop 


identifier 
infixop 
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l J ۱۱ ۱۱ ۱ ۱ اا‎ 


session 


command 


expression 


application 


superscription 


primary 


infix 
οι αἱ - 


identifier 
prime 


literal 


un 

cur 

UNC 

theta Frimitive Extensionals 
epsilon 

size 


` 


jt 3C JE 3€ 3€ 3€ Je 3e Ae 3€ 3e 3C 3E AC 3C 3C JC 3€ 26 XC 36 ACC 3C Je 36 iC ج چ ج د جد جذ چ چ‎ E ES HHS 


DELTA 

σγιν 

rev 

dom 

rng 

mem Non-FPrimitive Extensionals 
run (Group I? 
lun 

bun 

1 1 

term 


hd 

El 

alpha 

omega 

ALFHA 

OMEGA 

min Non—-Frimitive Extensionalz 
Max (Group II? 
uset 

inu 

as 

resort 

sort 

som 


3%* 
k 
* 
* 
* 
k 
* 
* 
* 
* 
* 
لا‎ 
* 
* 
Ἂς 
k 
Ἂς 
Ἂς 
* 
* 
k 
+ 
٨ 
k 
* 
k 
* 
* 
* 
* 
۸ 
* 
* 
κ 
Ἂς 
k 
Ἂς 
* 
* 
k 
٨ 
* 
۷ 
۸ 


curry NUM | 
uncurr y Primitive Intensionals 
I 


چ چ چ د چ ج ج چچ جد جن ج ج چ κά e AC 3C 3C IE Jc 3C AC AIC AC‏ عا κ. κα κα‏ د جد جج ج 


while 
EEN 
phi 

del ta 


PI 
wig 


Mon Primitive Intensionals 


لوت د ج ا ج > ج + ج ا ج ج چ چ ج ج ج C‏ چ 3C 36 e‏ € د د د د جد جد je XC Je AC dC de dC 3c‏ 


not Miscellaneous 
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prefixop 


sel 


s Frimitive Extensionals 


cup 


JC 3€ 2E 9E JE JE 9E 9E 3E 20 3E 9E 9E 9E JE 90 HE 90 90 90 90 90 HE‏ رر رخ 


Non-Frimitive Extensionals 


(Group I) 


member 
nomem 
Lim 

Rm 

Mm 

! Subset 
subset 


filter 
سا‎ 
restr 


index 
select 
join 
unimg 
all 

cl 

cr 


cap Mon-Friimitrve Extensionals 


(Group IT) 


rp 
rpi 


# 
@hat 
xi 

: 

sa 
cat 


۱۱ ۱۱ ۱ ۱۱۱ ٦08٦ه‎ 


* 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
4 
x 
* 
* 
" 
* 
* 
x 
* 
* 
* 
k 
* 
£ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
لا‎ 
#7 


Primitive Intensionals 


«tend Non-Frimitive Intensionals 


restrict 


اا ۱۱ ۱ 


ΕΕΚ ΕΚΚΑ 90 3E DE 2030 3E 3E 3-9 9E XE 


Miscellaneous 


4 
times 
divide ۶۸ 


orsign : or 
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infixop 


APPENDIX C — RPL OPERATORS 


A. INTRODUCTION 

This appendix will describe all the RPL operators 
implemented to date. Sections B — L each cover one of the 
operator classes outlined in Chapter VI. Because all of the 
data input operators are ο δυο in the ‘Special Operator 
Es. it is discussed first, followed by the the remaining 
classes in the order indicated in Chapter VI. Also, to 
provide easier access to the operators, an index 15 included 
at Appendix D. 

The format utilized provides the user with the name of 
the operator in functional terms, its syntax, 
inputés)/output, a description of what the operator does, 
and one or more examples. Each example is written as an RPL 
command which will return a result. Therefore, definition 
of variables is kept to a minimum to keep the structures 


€ 15 


Qu 


visible so the user can follow more easily wh 
happening. 

Long input definitions and output are highly formatted 
1n this appendix. The user must realize that output from 
the interpreter itself is not as structured. A large 
relation in RPL is just a LISP list, and so when it is 
printed to the screen, 11 15 printed as a single long list, 


modified slightly by RPL routines. Therefore, the output 


سا 


represented in this Appendix has been nicely formatted to 
clarify the structures involved and to help the 
understanding of the user. 

Arguments to RPL operators can take various forms, but 
are all variations of the three basic types - scalars, sets 
or relations. In general, data types will be represented 


through the use of lowercase letters as follows: 


scalar, or anything‏ > == کل ويل وځ 


uva 


II 


set 


Ui 
1 


tmu > relation (tables), 
sequence or list 


d ==> relation —- database 
Tc == function 
0 ==> boolean function 


integers 


3 
2 
1 
lI 


The operators have generally been classified by the type 
Of argument they apply to, e.q., set, relation, 52 6115۳22 و‎ 
array. Sequences, arrays, records and the like are all 
special forms of a relation. Another unique farm of 
relation utilized By several of the higher order operators 
is the data structure. 

A RPL data structure consists of two parts, the form 
part, R, and the data part, D. These two parts are combined 


as a RPL list. Thus, the internal structure appears as: 


(rel (1 D) (2 R)) 
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R, the form component, is a relation represented as a 
sequence of indices to the data elements. These indices can 
be anything the user desires, as long as they all are 
distinct. The data part, D, is also a relation which 
relates the indices to their respective data values. Er 
example, consider a data structure for the sequence, 

(10, 20, 20, 840. 50). 
For simplicity, let the form part, R, be represented by the 
sequence, 1 لین رو دو‎ Internally, R would look like: 

(rel (1 2) (2 3) (3 4)) 
This would lead to the data part, D, with an internal form: 

(rel (1.100 (2 2U) (3 30) (4 40)) 

Together these components would produce the data structure: 


S = (rel (1 (rel (1 100 (2 2U) (3 300 (4 40)20)) 
(2 (rel (1 2) (3 3) (3 400) } 


In this appendix, a data structure will be represented by 
the capital letter, '5'. This letter is used to Hi studi sh 
it from the lowercase letters which are used to represent 
other argument/data types in the language. 

For additional and developmental information concerning 
any of the operators ain this Appendix, see MacLennan 
[Ref. “21. some. operators have been altered, added or 
deleted from the original set proposed bv MacLennan. 
Appendix E summarizes in tabular form, the evolution from 
the original proposal to the implemented version of 


operators. Tt provides a quick reference to the syntax of 


the operators in their input form and contrasts this input 


with the publication form created through the use of 


‘eqn’ package. 


form 


the Unix 


B. SPECIAL OFERATORS 


Relation Definition 


a. Syntax: (rel (x1 s. v1) (xZ : w2) cM 
b. Input (5): anything 
Output: relation 


t 


c. Description: The ‘rel’ operator is the general 
mechanism to create a relation in 
RISE: It normally uses the pair- 
making operation described in the 
next section to convert the data 
given into the internal 
representation for a relation. 


d. Example (s): 


?» (rel (1 : 2) (Ss 4) ο 
(rel (1 2) (1 4) (4 225) 


Set Definition 


a. Syntax: (sel XI x2 πο: ? 
b. Input (s): anything 
Output: relation (set) 
c. Description: The ‘set’ operator evaluates and 


transtorms the data items given 
into the internal representation 
for an RPL set. 


d. Example ts): Suppose a = > and b = 5: 


Se (set 1 2 a 4 ΕΙ 


(set 1 2 Š 
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1. 


anything 
relation 


The ‘seq’ operator is an easier 
way to enter a special kind of 
relation called a sequence. 1 1S 
up to the user to insure that the 
data item he is creating is a pure 
Sequence, i.e., has no redundant 
elements in it. This mechanism 
can also be used to enter certain 
types of directed graphs wnen 
redundant elements are included. 


123 4 51 


2) (2 3) (3 4) (4 5)) 


]37754 
ول لو را Pee eye‏ 


(list «x1 x2 x5 ... ὁ 


anything 
relation 
The ‘list’ operator is an easier 
method to enter a relation which 
looks like an array. It sets up 


an internal structure which orders 
the data given bv relating an 
index, starting with 1, to the 
Value provided. It is called a 
list after 1ts primary use, for 
making argument lists for infix 
functions. 


Suppose x = 3: 


x 485 


(setrange m to n) 
(seqrange m to n) 
(11strange m to n) 


د 1 


Input (s): 
Output: 


Description: 


Example(s): 


(1) T> (seq 
(rel (i 


Syntax: 


Input (s): 
Output: 


Description: 


Exampleís): 


T7* (list 10 202 
(2 20) (3 σου (4 40)) 


(rel (1i 1) 


Syntax: 


D: 


C. 


دل 


d. 


a. 


E 
= z 


b. Input(s): — integers 
Output: relation 


c. Description: These operators are used to easily 
create relatively large numeric 
relations. The values within the 
range fromm toon are transformed 
into the appropiate structure. 


d. Example(s): 


(1) 7> (setrange 2 to 31 
(set 2 54 5) 


(2) 7b (seqrange 1 to 5⁄1 
(rel (1 2) 42 3) (2 4) (4 5)) 

(2) 75» (listrange 10 to 501] 
(rel (1 104} (2 228) (3 3@)) 


Direct Function Definition 


a. Syntax: name == (func (arg) (bodv)) 
دلا‎ Input (s): argument list; body of definition 
Qutput: RFL function 


c. Description: The syntax includes the entire 
command line required to execute a 
"func'. The function components 
provided are converted into the 
RFL internal function representa- 
tion and the environment of defin- 
ition is attached. However, this 
environment is never displayed to 
the screen in evaluated form. The 
‘env’ command will allow the user 
to see the environment of any 
function in its definitional form. 
The ‘val’ command will allow the 
user to see the internal  repre- 
sentation of a function, but the 
environment will not be displayed. 


d. Examples): 


Ye sum == (func (x y) (x + y)] 
7> val sum 

(closure (x y) (x + y)) 
?> (sum (list 2 3)] 


= 
J 
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Infix to Prefix Conversion 


a. Syntax: (op f) 
D. Inputís): infix function 
Output: prefix function 
c. Description: The ‘op’ operator transforms an 
infix Operator into a prefix 
operator ΞΟ that it can be 
composed with other functions. 


Once converted the arguments to 
this function must be provided in 
the form of a binary list. 


d. Example(s): 


pua (Op +) 11 6 دی‎ 


= 
لب 


a. Syntax: (lsec x f) 
(rsec f x) 
b. Input (s): x, anything; f, infix operator 
Output: function 


c. Description: These two operators allow the user 
to fix either the left or right 
argument to an infix function. 
Thus x must be a suitable argument 
to the infix function provided. 


d. Example(s): 


C19 9> ((1sec ` +) لك‎ 
= 
(2) Se Clrsec = 3) 2] 


false 


Conditional Functional 


a. Syntax: UL pef. ري‎ 
D- Input (s): p, predicate - boolean function 
f, g — any function 
Output: function 


Description: This functional creates a function 
which when given an argument will 
pass it to the predicate. 1۴ 
true, then f will be applied to 
the argument, else g will bs 
applied to the argument. 


Exampleís): Suppose the user wanted to add or 
subtract two numbers based on the 
sign of the ‘first number. The 
following predicate and functions 
could be used (See Chapter VI for 
explaination of function  defini- 
tional forms: 


> p x == ((x sel 1) « ΟΙ 

?* f == (op +] 

?> g == (op -1 

ορ είτε دت‎ το ατα 1۹ 


4 
a 


Iteration Functional 


س سے ہے سے سے A — — -— — ο‏ — = ہے —— —— — 


Syntax: (1ter p s f) 

Input (5): p, predicate (boolean function? 
f, any function 

Qutput: anything 

Description: This functional produces a 

: function which when given an 
argument will apply +f to that 
argument at least once. Then if 


the predicate applied to the 
result of the first application of 
f is true, it will apply f taoa the 
result. This cycle continues 
until the predicate fails. 


Example(s)s: Consider a trivial case where the 
user wanted the argument to be 
doubled until it was greater than 
>20, and then return the result: 


"5 D -- (rsgc <= 501 

Te f = (rsec times 2] 

ο» ((iter p —*> f) 4] 
63 
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is 


Da 


Ca 


n, positive integer 


eas 
on 


| iD 


+ f a 
done. 
is 
in 
right 
is 


right 


integer, 


with 


(1 4)3 


four cases 
only 
to both exten 
functions. 
the right argument is 
performed. 
a retiex- 
closure is 
asterisk 
a conflict 
'*' symbol 
is the 
of t 
When the left argument 


composed 


E (t sup +) 
(t sup κκ) 
(t sup -1) 
(f sup n) 


t, relation 
f. ۲18 1۱ ۶ 
relation; function 


This operator has 
shown above and is 
that can be applied 
sional relations 
When 
transitive 
When a α΄ 
ive transitive 
Note, a double 
required because 
with the use of the 
CISPR When a '-1' 
argument, the converse 
returned. 
is a function 
arqument is a 
the function 
itself n times. 


the 
and 


closure is 
15 provided, 


of 


and the 
positive 
is 


DET) 


Let t 
f 


(seq 1 
(x + 2) 


= ` 


27» (t sup +]J 


(els (1 e) CS» 4) (1 3) (2 4) 


Input (s) : 
Output: 


Descriptions 


Freample(s)s 


(y? 


?* (t sup **] 


r 


(rel (1 1) (2 2) (3 3) (4 4) (1 2) 
= 3) (3 4) (1 2) (2 4) (1 4)) 
e درب‎ (t sup =1] 
(rel (2 1) (3 2) (4 3)) 
(4) 27» (CF sup 2) 2] 
g 


(1) 


a. 


l). 


C. 


d. 


Formalization Functional 


ee ee ee ee — w — «σας — ( — c — — نےُکہ‎ 


و( 
(FHG Dar) g),‏ 
(f (times bar g),‏ 


5 (f (+ bar) 


L1. 


To 


5 Input (s): . infix operators functions 


Outputs: function 
c. Description: The ‘Bar’ operator converts any 
infix operator into a functional 
which takes two functions as 
arguments. The resulting  func- 


tional will apply the input 
functions f and g to an appropiate 
argument and then apply the 
‘barred’ infix operator to the 
results. 

d. Example(s): Consider a definition for a ftunc- 
tion which squares its arguments. 
It utilizes the Identity function, 
I, which is explained in the next 
section: 


sqr == (I (times bar) I1]‏ خر" 
(sqr 4]‏ >7 
16 


a. Syntax: empty 
b. Input (s): none 
Qutput: set or relation 


c. Description: This operator 15 actually a data 
element which represents the empty 
set or relation. Tt 1S normally 
used to initialize sets or 
relations and may be returned as 
the result of other operations. 


d. Example(s): 


EAE 


x == empty 


C. GLOBAL OPERATORS 


i. Equality and Ineguality 


eee ee — = — — —— تست‎ — — — — — 


a. Syntax: (x = y) 
(x Uy) πο eee y) 
b. Input (s): anything 
Output: boolean 
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two RFL data types 
their mathematical 
not form. 


Compares any 
based upon 
equivalence, 


E) رب“‎ (3 !2 3] 
true 
: 2) (2 : 3) (5: 40) = (seq 2 3 4] 
(DELTA x) 
anything 
relation 
Duplicates the argument and 


returns a relation 
a binary list. 


in the form of 


ορ (DELTA “ad 


(rel (1 "a") (2 "a")) 


(I x) 


anything 
anything 


Returns the input unchanged. 


ات ات 


anything 
elementary pair 


Used to create the elements of a 


relation in conjunction with other 
operators. It has no meaning by 
itself. 

κ. ==} (1 2) 
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Description: 


Example(s): 


p cO EE 


false 


ον ((set (i 
true 


n — —‏ — ېټ ہس سر — — 


C. 


él. 


(1) 


ہے۔ 


a. Syntax: 

b. Input (s): 
Dutput: 

c. Description: 

d. Example(s): 

Identity 

a. Syntax: 

Dx Inputís): 
Dutput: 

c. Description: 

d. Example(s): 


Fair Formation 


Input (52: 
Dutput: 


Description: 


Examples): 


a. Syntax: (hd 5) 
ink (29 

Ὁ Input (s): elementary pair 

Output: anything 

C. Description: Given a LISP elementary pair, 
1.8.9 a dotted pair, ‘hd’ will 
return the first element, CACHE 
will return the last element. 


These operations are used within 
function definitions το extract 
Pieces of a relation which can be 
further processed. 


d. Example(s): 


(1) “—2> (hd (ið : 28] 
1 ۵ا‎ 


(2) "5 (tl (10 : (rel (3 : 4) (4 : 51 
(rel (3 4) (4 5)» 


Fair List 


a. Syntax: (x y 
b. Input (s): anything 
Output: relation 


τ. Description: Converts the two inputs into the 
relational form of a binary list. 


d. Example(s): wor LEO اا ۷ و‎ 
(rel (1 20} (2 30)) 


tina t gt 

a. Syntax: (un x) 

n Input (5): anything 
Output: set 


c. Description: Converts the input data item to a 
set containing that single data 
item. 


d Example(s): ToO (un "dog" 
(set dog? 


1-20 


(x + y) 

v‏ بر) 

(x times y) 

(x divide y) or (x / y) 
real or 
real or 


integer 
integer 


numeric, 
numeric, 


Normal mathematical 
If either input 16 a real, the 
result will be areal, except in 
division. If the numerator 15 
integer, an integer division will 
be executed. 


operations. 


Lee — 2‏ .ل٧‏ 32( اک 
125 .1 
ER (4) 7> (2 * 41]‏ 
8 
]4 / 2.0( >7 )6( 


(x رل ته‎ 
(x > y) 
(x <= y) 
(x >= y) 


numeric, real or integer 


bool ean 


Conventional relational operators. 


5J (2) 7> (2 >= 3] 


Syntax: 


Input (s): 
Dutput: 


Description: 


Example(s): 


"uo Oe FS 


Syntax: 


Input (s): 
Dutput: 


Description: 


Exainple(s): 


۱ (2 > 


true 


cle 


a. 


ARITHMETIC OFERATORS 


Í. 


Inc 


- 


(x andsign y) or (x and y) 
(x orsign y) or (x or y) 
(not x) 


boolean (s) 
boolean 


Conventional logical operators. 


andsign true] 


Se Or (2 24 
(3 = 3] 
(max s) 
(min s) 


numeric set 


number 

Returns the maximum or minimum 
element of the input set, 
respectively. 

(set 482 14 9] 

(set 48 2 10 ΓΙ 


D. LOGICAL OFERATORS 
1. Conjunction, Dis 
a. Syntax: 
D Input (3): 
Dutput: 
c. Description: 
d.  Exampleís): 
(1) 2» (true 
true 
(2) 2> 0028 
true 
(3) 2» (not 
false 
E. SET OPERATORS 
1. Maximum, Minimum 
a. Syntax: 
دلا‎ Input (a): 
Output: 
c Description: 
d. Example(s): 
(1) Tr (max 
19 
(3) 2> (min 


“2 
۳ 


(rsort s) 
(sort s) 


numeric set 
relation 


The input set is sorted in ascend- 


ing order and converted into a 
sequence for rsort, and a list tor 
sort. 

(set 48 2 10 ΘΙ 
4) (4 8) (8 7) (9 10?) 

(set 48 2 10 7] 


2 (2 4) (3 8) (4 9) (S 10)) 


(rsort 


Syntax: 


Input (5): 
Dutput: 


Description: 


Example(s): 
(1) dus 
(rel (2 


Vis 


(2) (sort 


(rel (1 


موه 


Element Selection 


a. Syntax: (epsilon r) 
ο Input (s): set or relation 
Dutput: anything 
ca Description: Returns the first element of the 
input provided. 
d. Example(s): 
(1) 27 (epsilon (set 48 2 10 ΣΙ 
4 
(2) 7?» (epsilon (rel (1 : 2) (2 : 31 
(1 —) 
Unique Element Selection 
a. Syntax: (theta s) 
b. Input (s): unit set 
Output: anything 
c. Description: Extracts the single member of 8 
unit set and returns it. 
d. Example(s): خر"‎ (theta (set "dog" ] 
dog 


(uset r) 


set or relation 
set or relation 


Eliminates redundant elements from 


the input structure provided. 
درم‎ (uset (set 4 B 2 4 10  [ 
(set 4 8 2 10 °) 


س = — جو — — — — — — — — — — — ات — سر وس cum‏ 


(s cap r) 
(s cup r) 
(s N r) 


set or relation 
set or relation 


Conventional set operations. 


1 2 3) cap (set 2 3 41] 


Unigue Set 
a. Syntax: 


D. Input (s): 
Output: 


c. Description: 


d. Example(s): 


mr HERES س‎ es ت اھ‎ — = 


a. Syntax: 


b. Input (5): 
Output: 


c. Description: 
d. Example(s): 


ΓΕ; ο; ((set 


(set 2 3) 


lI 2) 


(rel 


= 3)) 


cup 


i 2 3) \ (set 2 41 


ted 


1 2 2) N (set 1 2 3] 


(s cart r) 


set pr relation 
relation 


None required. 


(set Š 6] 
(2 تا دنت‎ 71 


cart 
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2 


(l 16) 


?> ((set 
(set 1 


?> ((set 
(set 1) 


Pe ((set 
empty 
Cartesian Product 


ο... ۰ص یک‎ — — — «πα t 


D. Input (3): 
Dutput: 


Ca Description: 
d. Example(s): 


7p ((set 1 2) 
(rel (1 5) 


Syntax: (size r) 
Input (s): set or relation 
Output: integer 


Description: Returns the number of elements in 
the input set or relation. 


Example(s): 


(1) 2» (size (set 4 8 2 10 91 


κι 


ο مد هد‎ م۳٣‎ p: SS) OS ολ (S : 71 


πο 


Syntax: (x member r) 
(z nomem r) 


Input (3): anything: set or relation 
Output: boolean 


Description: Verifies if x is or is not a 


member of the input set or 
relation. 


Example(s): 


(1) 2> (2 member (set 1 2 51 
true 


(2) سر‎ CO] لو‎ ۱۳۱۱۳۱۱ (rel {1.5.5} (2 : 3)] 


Syntax: (s subset τ) 
(5 subset r) 


Input (2): set or relation 

Dutput: boolean 

Description: Verifies that all members of s are 
members of r. The cardinality of 
s must be less than the 
cardinality of r for a. proper 
subset. 


a. 


b. 


C. 


d. 


ea. 


14. 


2 33) !subset (set -. Ὁ) η 
2 3) subset (set 1] 2 3] 
(1 : 2)) subset (set 4 (1 : 2) 31 
(t sel x) 
anything; relation 
anything 
Given the left member of a rela- 
tion; x, the associated right 


member of the first occurence of x 
im t will be returned. 


Cl) eee Ss OM MIR 


(t 4 U? 


relations 
relation 


Constructs a table (relation) 
which relates each common left 
member of t and u, to a list 
created by selecting ne 
respective right members from t 
and u by using the common left 
member as a target. When creating 
the list, the right member 
associated with the first 


occurence of the target is used. 


155 


d. Example(s): 


(1) 392 ((set 1 


true 


(2) 7» ((set 1 


false 


(SOMME 


(rel 
true 
E RELATION OPERATORS 
1. Selection 


= Input (5): 
Output: 


c. Description: 


d. Example(s): 


“r t == (rel 
دا"‎ (2 sel [j 


LA ^ 


2. Construction 


b. Input (5): 
Output: 


- Description: 


n 


S c: «15 3») (2 : 4)1 
νε, 2 . uox و‎ 10). 

(1 2) (2 B))) 

۲ SCE 9)))) 

(cny t) or (t sup -1) 


relation 
relation 


Returns a table where each element 


of table t has the left and right 
member inverted. See special 
operator section for other uses of 
the ‘sup’ syntax. 
ieee ieee الو‎ se Ss) τὸ : ٧٢, 

ο) (2 1) (4 2)) 

(cur t) 

(unc t) 

relation 

relation 

Given an extensional  representa- 
tion of an infix function in 
either curried form or  uncurried 
form, these operators will convert 
one form to the other. Each 
element in the uncurried form of 
such a table consists of the 


function argument list paired with 
the result of applying the 
function to these arguments. In 
curried form, the resulting table 


15 the equivalent of fixing the 
left member of the infix operator. 
This left member is paired with 
another table which contains ali 


potential right members paired ta 


Loe 


C3 


d.  Exampleís): 
2?> t == (rel 
? u == (rel 
er (t F ul 
(rel (1 (rel 
(2 (rel 
Converse 
a. Syntax: 
b. Input (s): 


Output: 


c. Description: 


Example(s): 


2p == 


^. 


(rel 
(cnv t] 
(rel (2 1) 


a. Syntax: 

b. Input (s): 
Output: 

ee Description: 


X 
ww. 


the result of applying the 
function to the fixed left member. 


d. Example(s): Consider a portion of an uncurried 
table which represents the ‘+’ 
function: 


?> t == (rel (11 و‎ 1): 2) 0001 2 2 eee 
) 1. و‎ Shue ANCE رز‎ 976,٦ 
((2., 9) s 4) ((2 ھ۸[‎ 61 


CENE --‏ رد" 
(rel (1 (rel 41 2) (2 3) (3 4)))‏ 
( زر رف 3( )4 2( )3 1( (rel‏ 2( 


Ordered Union 


a. Syntax: (t 5 u) 
D- Input (s): relations 
Output: relation 


c. Description: Creates a table where all elements 
Of t are added to u, replacing any 


corresponding elements already 
there. 
d.  Exampleís): 
Tr t == (rel (1 : ο (2 r: D ΠΠ 4 
Per u == (rel (2 : 4) (3 : &) (4 : 7)] 


== (t zou] 
(rel (1 2) (2 3) (3 4) (4 7)3 


Frimitive Relative Froduct 


Lii مس‎ s a مس‎ — x mei a á l 


a. Syntax: (t i u) 
Da Input (s): relations 
Outputs relation 


c. Description: For an element int, its right 
member is used as a target in u, 
producing a seat of values 
associated with the target. New 
elements for the resulting table 
are created by pairing the left 
member of the element in t with 


each value in this set. The 
resulting table contains all the 
elements created by the above 


process for each element in t. 


| 
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= 


τ, κ: Τι: 12)) 


(y all t) 

(t unimg x) 

anything; relation (all) 
relation; anything (uni mg 

set 

‘all’ returns a set of all left 
members related to the target 
right member , x Likewise, 
"unimg' returns a set of all right 
members related to the target left 


member, x. 


ΙΙ. (1s) 60 1487) 


i 


ΓΕ ας 


d.  Exampleís): 


Fe t == (rel 
TP == (rel 
τεσ.“ 


(rel (1 4) 


D. Input (s): 
Output: 


c. Description: 


d. Example(s): 


Let t = (rel 


CIC OUO TATI لک‎ 
(set 2 1) 


(pee کہ‎ ۶۶۶۰٦٣ 


4) 


(dom t) 
(rng t) 


relation 
Set 


‘dom’ returns all left members of 
the relation t, and ‘rng’ returns 
all right members of t. Neitner 
of these operators eliminate 
redundant elements. 
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ہے 


(set 3 


a. Syntax: 


D Input (s): 
Gutput: 


c. Description: 


d. Example(s): Consider the relation shown 
graphically in Figure C-i and its 
input form here: 





t == (rel (i : 2) (2 z 4) (2 و‎ Se د دا در و‎ 
(S :z 5) (7: b) (B : O رآ و تا‎ “ΙΙΙ... π 
8 
<— ——.9 
7 9 
Figure C-1 Arrow Diagram for Relation t 
(1) 7b (dom t] 
(set 1 22 2557889? 
(2) 77 (rng El 
(set 245556678 7) 
initial Members, Terminal Members 
a. Syntax: (init E) 
(term t) 
b. Input (a3): relation 
Output: set 
c. Description: Given a table which represent 


< 
some relation, the initial member 
are those which are left member 
of the relation, but not right 
members. Conversely, the terminal 
members are those which are right 
members, but not left members of 


T I uv ۸ 


the relation. 'init' returns the 
intial members of a relation, and 
‘term’ returns the terminal 
members. 
d. Examples): sing the relation in Figure C-i, 
و11 د لا‎ | 2 (term t] 
(set 1 3 9) (set 4 ὁ) 


1 4 


(mem t) 


relation 
set 


: Returns a set of all left and 
right members of the relation t. 
Because this operator is defined 


in terms of the domain, range and 
union opertors, redundant elements 


may be left in. The union between 
the domain and range of t will 
leave any redundant elements in 
the range in the result. See 


reference ## for more information 
on how LISF implements union. 
Using the relation from Figure C-1 


رت 55 د کچ 
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(x Lm t) 
(x Rm t) 
(x Mm t) 
anything: relation 
boolean 
: Verifies if is a left, rignt, or 
either a left or right member of 
t, respectively. 
1 Oe 2). (5 : 4) رکشت ج)‎ 
Lm t] p (8 Pim ا‎ 
false 
Rm t] (4) 5» (S Mm t] 
true 
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a. Syntax: 
b. Inputís): 
Dutput: 
c. Description 
d. Example(s): 
7> (mem ا‎ 
(set 1 > 9 


a. Syntax: 
تا‎ Input (s): 
Output: 
c. Description 
d. Example(s): 
Let t = (re 
(1) Fs (3 
true 
CS sor) 
false 


19. 


12. Left Univalent, Right Univalent, Bi-univalent 


a. Syntax: (lun t) 
(run t) 
(bun t) 
b. Input (s): relation 
Output: boolean 
c. Description: A left univalent relation is one 
in which each element in the 


domain is unique. In other words, 
no two different right members can 
have the same left member. 
Likewise, a run univalent relation 

i 1 5 one in which every right member 
is unique. Therefore, it follows 
that a bi-univalent relation, alsa 
known as a isomorphism is one that 
has both unique left and right 
members. These operators deter- 
mine if the relation is wnat is 
requested. 


d. Example(s): 


(1) "7 (lun (irel (IT و‎ ٦194) 904148 
false 


Ln 
لا‎ 


- {1 


J 
J 


(2) Q> (run (rel (1 
true 


( 75 (hun (rel (I =a D (252738) Ve 225973) 
true 
Se SEQUENCE OPERATORS 


1. First Member, Initial Sequence 


a. Syntax: (alpha t) 
(ALPHA t) 
b. Input (s): sequence 
Output: anything; sequence 
s Description: ‘alpha’ returns the first element 
of the sequence s, while ‘ALFHA’ 


returns the entire sequence except 
the last element. 


(eq 12 3 4 5] 

(seq 1 2 3 4 51 
2) (E لت‎ «> 4)) 

(omega t) 

(OMEGA t) 

٩ 

sequence 
anything; sequence 

‘omega’ returns the last element 
in the sequence t, while ‘OMEGA’ 
returns the entire sequence except 


the first element. 


(seg 1 2 % 4 31] 
(seq 1 2 3 4 51 
Z) (š 4, (4 5)) 
( El t) 
{ΕΕ εν») 
x = anything; t = sequence 
sequence 
Any data item is added to the 
beginning (left) or to the end 
(right) otf the sequence t. 
(seq 2 3 4 51 
2) (2 2) (3 4) (4 3)) 
Ἱ Ses) cr 5 
2) (2 5) (3 4) (4 2)) 
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Example(s): 


(1) 2» (alpha 
1 

(2) ον (ALPHA 
(rel (1 


Syntax: t 


Input (=s): 
Qutput: 


Description: 


Examples): 


نیج 


(1) (omega 


= 
— 


(OMEGA 
(rel (2 


e x. 


(2) 


Inputís): 


Output: 
Description: 
Examples): 
(l) FS (1 cl 
(rel (1 
(2) 75 (seq 
(rel (1 


TA 
a a 


d. 


(mu t? 


relation 
sequence 


This operator eliminates redundant 
edges from a relation which has as 
its underlying structure a 
sequence. This type of structure 
can be obtained as a result of 
some of the higher order operators 
discussed in sections F and L. 
Care must be exercised. If t does 


not originate from a true 
Sequence, the computation may not 
halt. 

(S s (σι ο) {55.7 (See 

(4 : 6) (4 : 7) (4 : 2) (6: 7) 

(6 NEC X aa col 


a. Syntax: 


Input s):‏ دلا 
Qutput:‏ 


c. Description: 


d.  Examplefís): 


T^ t == (rel 


σα یه‎ 


(mu t1 


(rel (3 4) (4 8) (6 7) (7 2)) 


— = — — کس‎ — — — n m A = 


relation 
relation 


tu 


Given a relation in the form at 


sequence Ot Sequences, this 
operator converts 1È into a 
relation which represents 3 
matrix. The left member is a list 
of the column and row number, and 
the right member is the value at 


that position. 


(seq 10 28 30) 
(seq 40 50 60) 
(seq 70 80 9790) ] 
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B. Inputís): 
Output: 


c. Description: 


d. Exampieís): 


= 


va 


2> (ssm t] 

(rel 
(> lead) (2 نر رر‎ 
)٢)۱۱ (1 1 eee ۰ ( 
(rek Ki 1) 42 A) 
٠٣61٠ CM I5 
Orel 2)9€ 02)» S0) 
((rel (1 2) (2 3)) 40M) 
quem SU 
((rel (1 3) (2 2)) 80) 
Oot) te Smo) 


a. Syntax: (t sa n) 


b. Input (s) : sequence; positive integer 
Output: relation (array) 


c. Description: Converts the sequence t into an 
array indexed starting with n. 


d. Example(s): 
?# ((seq 18 οὐ 30) sa 4] 
(rel (4 100 (S 200 (6 2@)) 
H. ARRAY OPERATORS 


1. Array to Sequence 


SS — ea αρ‏ — = --حے = xm a ra‏ ج 


a. Syntax: (as t) 
اا‎ Input (=): relation (array) 
Output: relation (sequence) 


c. Description: Converts the values of the given 
array into a sequence. 


d. Examples): 


e e SS (rel TI ΠΠ τ-5 Ces SE) 14 : δα} 
(rel (1@ 28) (26 26) (20 40)) 


a. Syntax: _ (t cat زی‎ 
b. Input (s): relations (arrays?) 
Qutput: relation (array) 


c. Description: Concatenates u tot by altering 
the indices of u to be consecutive 
with the indices of t. 


d. Example(s): 


S0 ] 
64) J 


209} (5 
30? 


7* t -— (rel (1: 10) (2 
Te u == (rel (1 : 48) (2 
7* (t cat ul 

(rel (1 19) (2 200 (3 28) (4 4@) (S σου (5 50?) 


d. Reverse Array 


— — = — سا —— سے سے ہسے‎ — — a 


a. Syntax: (rev t) 
b. Input (3): relation (array) 
Output: relation (array) 


= Description: Returns an array with the values 
reversed. 


d.  Exampleís): Using t from the example above, 
75 (rev td 
(rel (1 32) (2 2@) (3 102) 
I. DATABASE GFERATORS 


T2 Database Index 


a. Syntax: (x index d? 
D Input (=): %, anything (field name: 
d, relation (database) 
Output: relation 
Ca Description: Returns a relation which pairs the 


value associated with field name 
X, to the entire record that the 
field name was found in, for all 
records in d. 
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d. Example(s): Consider the following database: 


dbi = (set 


(ral 4۳3۴۲ : 100) ("name" : "Brown") (arsu ده‎ 18) ) 
ΕΕ Gatto σι) 4 ۱۱21۱ Mitton O ("hours" : 8? 
(rel ("#" : 102) ("name" : "Benson") ('"hours" : 15)) 
(rel ("#" : 193) ("name" : '"Murnan"? ("hours" : 14) ز۶‎ 
(rel ("#" : 104) ("naime" : "Garcia") ("hours" : 12}})} 


"۵ در‎ ("hours" index dbl] 
(set (10 (rel ( 100) (name Brown) (hours 180))) 
(8 (rel (i4 1012) (name Mitton? (hours &))3 
(15 (rel (id 10352} (name Henson? ‘(hours 14))) 
(10 (rel (i4 103) (name Murnan) (hours 1?) ( 
(12 (rel (4 1045) (name Garcia) (hours 12)3))3 


0 Database Select 


a. Syntax: (x select Hd) 
D. Input (s): x, anything (field name) 
d, relation (database) 
Output: function 
c. Description: Returns a function which when 


given a predicate selects those 
records for which the predicate is 
true and returns a relation with 
those records. 


d. Example(s): Suppose the user wanted all 
records which have an ‘hours 
field equal to 18 from the 
database, dbl, used above. Thus the 
argument to the functional created 
Dy the 'select' operator would oe 
the predicate, (rzec < 1805. This 
predicate compares the value of 
the x field with the value 1&. I 
true, the record is included in 
the resulting set. 

Ὃς 4 ۱۱۱۵۱۱۳ 5۳۲ select dbl) (rsec = 18] 
(set (rel (# 100) (name Brown? (hours 10?) 
(rel (# 142) (name Murnan) (hours 105) 
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ο Database Join 


a. Syntax: (x join dl) 
bz Input (s): x, anything (field name) 
dl, relation (database list) 
Dutput: relation (database) 
c. Description: This operator performs a natural 
join on two databases, combining 


all the fields of both databases, 


based on the equality of the 
values in the field specified - x. 
d. Example(s): Consider the databaze, dbl, in the 


‘index’ example and the additional 


database, db2, given below: 
db2 = {set 
(rel ("#" : 100) ("“age” : 32) ) ۰6۴ ۳1 6۳۱ ی‎ IPE 
(rel ("#" : 101) ("age" : 27) (“office”" : ΕΘ 
(rel ("f#" : 102) ("age" : 21) ("otfice" : 8 
(rel ("#" : 103) ("age" : 435) ('office" ΙΝ 
(rel ("#" : 104) ("age" : 37) ("offirce" : "Baars 
Peo AUS join (1ist dbl db2)1] J] 
(set 
(rel fname Garcia) (hours 12) (# 104) (age 37) (office B8)? 
(rel (name Murnan) (hours 12) (d 10%) (age 45} (office Az?) 
(rel (name Henson?) (hours 16) (d 102) (age 21) (office Ci}? 
(rel {name Mitton) (hours 8) (# 101) ‘age 27) ‘office A4)) 
(rel (name Brown) (hours 10) (d 100) (age 32) (office D2))) 
F. HIGHER ORDER OFERATORS - RETURNING FUNCTIONS 
1. Array Reduction. 
a. Syntax: (f red x) 
b. Input (5): function; anything 
Output: function 
C Description: Given a function f, which will 
Operate on the data of an array, 
and a starting point, x, this 
Operator produces a function which 


reduces an array. When executed, 


the result is set to the starting 
point, f 45 applied to ths 
result and the first element of 


data in the array, producing a new 
result. f continues to be appiied 
as above until all data elements 
have been utilized as input. ΤΠΕ 
result is then returned. 


d. Examples): Consider the definition for 
factorial: 


7> fac x == (((op times) red 1) 41 1 5۳۳ 2092 1 to x1] 
Ee facs] 
49320 


a. Syntax: (T o g) 
D: Input (5): functions 
Dutput: function 


δι Description:  Froduces a function which when 
given an appropriate argument will 
apply f to the result of applying 
g to that argument. 


d.  Exampleís): Consider another definition far 
the squaring function: 


2; sqr == (times o DELTA? 
کنا‎ (sqr 4) 
16 


کک ee‏ .ات = سک مست سا Á -ᾱ-‏ س me cur‏ 


a. Syntax: (CUFF yaf) 
(uti ut +) 

b. Input (2): function 

Output: function 


i Description: These two operators are used ta 
convert between the two types oF 
Aa LIuusctions. An infix funcec- 
tion which takes a single argument 
in the form of a list i5 i 
۱۱۲۱۲1۱۳۳ 1 20 form. When such 
function 15 curried, it produces 
functional, which will produce 
another function when given one oft 
the two arguments that are 


normally required. This resultant 


f 7 


(lI 


149 


function fixes this argument and 
Creates a function which takes any 
other valid argument and returns 
the same result as 11 the 
uncurried version had been given 
both arguments. 


Examplets): 


75 sum -- (op +] <* uncurried form *; 
?> add == (curry suml 

7^ f -- (add لت‎ 

25 (sum (list 


5 


(t extend f) 


relations; function 
functional 


Produces a functional which when 
given an argument first checks to 
see if it is the domain of +. If 
so, Its right member is returned, 
else the function f is applied to 
the argument. 


Suppose the user wanted to work 
with a subrange of the positive 
integers, say i to 538, so that the 
successor of the argument would te 
returned if the argument was in 
this subrange, and an error 
message would be returned if it 
was not: 


) 
)0 ۰ 00 
+ 
T 
L.J 


Extension 


Syntax: 


Input (5): 
Dutput: 


Description: 


Example(s): 


(1) 75 t == (seqrange 1 to 501 
Po EE. == "Error — not within range" 
2 خر‎ Ssubrange == (t extend f] 
7^ (subrange 295 
26 
(2) Fr (subrange 55 
Error — not within range 


(wig p) 


boolean function 
function 


Returns a function which negates 
the result of the input boolean 
function. 


Consider a function to determine 
if a numeric argument is within 
the  subrange 19 to 20, and then 
the opposite, a function to 
determine if the argument is 
outside the range: 


--.... = ay and (x <= 26] 


out-of-range == (wig in-rangel 


Syntax: 


Input (s): 
Dutput: 


Description: 


Exampleís): 


.ہہ 


1 ۲۱-۳ 5۲۱ 6 x 


— 
وش اج 


7> lout-of-range 25] 


) ۱١ 9) 


functions 
function 


Froduces a function from th= two 
input functions which when given 
an argument list, returns a list 
of the results of applying +f to 
the first member of the argument 
list and و‎ to the last member of 
the argument list. 


Consider a different approach to 
the 1۳-۳ 5۳936 function from the 
last example: 


5 1 1 5٩۲ == (((rsec >= 10) {i (sec <= 20)? o DELTA] 


(5 true)? 


true 


Syntax: 


Input ٤ 
Dutput: 


Description: 


Examples): 


(blist 1251 
(rel (1 true) 


in-range == (and p blist] 


(in-range 1351] 


ZA 


true 


a. Syntax: (f while (م‎ 


b. Input (s): function; boolean function 
Output: function 


c. Description: Produces a function which when 
given an argument will first test 
the predicate with the argument. 
If the predicate succeeds then f 
1 5 applied to the argument. The 
result of this application 15 
passed to the predicate and if the 
predicate again succeeds, f 
applied to this result. This cy 
continues until the oredic 
fails. If the predicate fails 
the first attempt, the original 
argument 15 returned. 


uU"‏ دا 


d. Example(s): Consider a definition for modulo 
arithmetic: 
7* modaux x == ) )۳ 52 — x) while 4 )۳ ۶2 :Ξ Ø) o írsec — x?] 
7* iod == ((uncurry modaux? o revl 


2 (18 mod 4] 


تد 
a=‏ 


a. Value of a Mode, Data Structures 


a. Syntax: (upsilon f) 
b. Input (s): function 
Output: function 


c. Description: Creates a function which takes 
data structure and returns th 
value of the node selected by f. 


HI fu 


00 Exampleís): Suppose the user wanted a function 
which would return the value of 
the first node of a given data 
structure. Consider a FFL data 


Structure for a sequence: 


2» == (list (list 3 4-2 46 7 -1 2 -4) 
(seqrange 1 to 81 
27» ναὶ 5 
(rel (1 (rel (1 3) (2 4) (3 —2) (4 á) (5 7) 
τ... (7 2) (8 —4)) 
(2 (rel (1 2) (2 3) ($Š 4) (4 35) (5 á) 
{64 7} {7 8) و‎ 
Pr first == (upsilon alpha] 
οσο (first S] 


-- 


a. Syntax: (delta f) 


Input (s): function‏ دا 
Dutput: function‏ 


3 


. Description: Creates a function which 
operate on the data part of 
RPL data structure. Therefore 
function f must accept as a va 
argument the relation wh 
represents the data part of 
data structure. The resuit 
function takes a data structure 
an argument, applies f to the d 
component, and returns 
modified data structure. 


٦ 
ہے سه بت‎ 
سم 0 ا‎ 


.لا j= rt rt‏ اسم 


z 


μμ 


؟ ] 1 


۱۱ لل‎ | —P CL IU 


rti 
لا‎ fpe 


rt Hi 
e e 
1 


Exampleíz): Suppose the user wanted to add :‏ لا 
to every data element of the data‏ 
structure used in the last‏ 
example:‏ 


Se ې‎ == (l1sec (hd (: bar) ((rsec * 1) o t1?) imgl 
7> addi == (delta f] 
?# (addi 5] 
(πει (1 σε ει ο αν 5) (1-1) (4 7) (5 B) 
| τ. (7 ον (SS —)) 
(2 (rel ) 3 ) 57 πι (4 ο) (Š &) 
(ο ον. κ Ελ ) 


a. Syntax: (phi f) 
b. Input (s): function 
Output: function 


pe 
L 
Led 


id. 


c. Description: Creates a function which will 
operate on the form part of the 
RPL data structure. Therefore the 
function f must accept as a valid 
argument the relation which 
represents the form part of the 
data structure. The resulting 
function takes a data structure as 
an argument, applies f to the form 
component, and returns the 
modified data structure. 

d. Example(s): Using the data structure defined 
۲۲ 51 0۱51 ۷ و‎ consider a function 
which will eliminate the first 
node of the data structure: 

2; rest == {phi OMEGA 
Yr (rest S] 
(rel (1 (rel (1 3) (2 4) 0$ —2) (4 &) (3 7} 
(6 —199 t7 2) (5 πο) 
(2 (rel (2 3) (3 4) (435) (S δ) 
(6 7) (7 8)} ) 

Image of a Data Structure 

a. Syntax: (FL +f) 

D Input (s): function 

Output: function 

c. Description: Creates a function, that when 
given a data structure, applies + 
to all values in the data part of 
the structure and returns the 
modified data structure. 

d. Example(s): Now, to add İi to every value as 
done in the ‘delta’ example, the 


user simply writes: 


(rsec + 1) 4] 

(1.4) (2 5) (3 —1) (4 7) (S 8) 
(6 0) (7 3) (8B -3)) 

(1 2) (2 SJ ο ee, SITIOS © 
(O τ. ΓΕ; π 


addi == (F‏ ره 

7» (addi S] 
(rel (1 (rel 
(2 (rel 


le 


HIGHER ORDER OPERATORS — RETURNING DATA 


(boolean) 
(sequence) 


(Sequence) 


using the 


(p xi t) 
p, function 
t, relation 


relation 


Filters the relation t, 


predicate, p. Reconnects nodes 
that could be lost By the normal 
filtering discussed later in this 
section. Used as a part of the 
filtering function for data 
Structures, is discussed next. 

Suppose the user wanted το 
eleminate the negative nodes oft 


a. Syntax: 

Da Input (s): 
Output: 

c. Description: 

d. Example(s): 


1 


the below sequence: 


7> s == (seq 24-2 6 7 -1 2 —-41 
Se ((rsec = (0) xi sl] 
(rel (3 4) (4 &) (6 7) (7 221 


2. Filtering Data Structures 


a. Syntax: (p PHI (ه‎ 

D Input (s): P, function (boolean) 

S, relation (data structures) 
Output: relation (data structure) 

c. Description: Extends the "1 functional to 
work on RFL data structures. Note 
that the data part is not changed, 
only the form part is filtered. 

d.  Exampleís): Consider the sequence used in the 
2M IN example as a REL data 
structure: 

?# S == (list (list 3 4 — 6 7 —1 2 —4) 
(seqrange 1 to 8)] 
7* ((rsec >= @) FHI 938 
{rel (1 (rel (1) (2 4) (Z —2) (4 ô) 
SES SIF 7 2) (8 -4))) 
(E FEI ۲ 3) (2 4) (S 7))) ) 
Note: Sequence order doesn’t matter in the form part. 


خا 
Ln‏ 
Ln‏ 


(p filter t) 
boolean function; relation 
relation 


Eliminates undesireable nodes from 
t by applying the predicate το 
each element of t. 1# the 
predicate succeeds, the element is 
left in the relation, otherwise it 
is removed. This functional is 
the basis for the restriction 
Operators discussed next in this 
section. 


Consider the same sequence, s, 
used in the example of the κι΄ 
operator. This will illustrate 
that this filtering method can 
eliminate valid nodes and leave 


nodes disconnected in the case -ᾱ-ι 
sequences: 


ioc ο το 


سه 
Lame‏ 


H) = @) and (tl x) f= Ø?}] 


) 
(1202274) 


Syntax: 


Input (s): 
Output: 


Description: 


Exampleís?: 


7% val s 
(rel (3 4) 
I 
T> p == (thd 


?7* (p filter s] 


(6 7)) 


(p —»5 t) 
(E ΞΡ 
(t restr p) 


boolean function; relation 


relation 


Returns a ralation which restricts 


the domain, range or both the 
domain and range, respectively. 
This is accomplished by filtering 


the table using the predicate p on 
the appropriate members of each 
element of the relation. 


(rel (3 4) 


Input ٭‎ 
Dutput: 


Descriptions: 


ius 


V... 


CA 


d. Example(s): Consider the same sequence s, used 
in previous examples: 
(1) 27 val s 
(rel (3 4) (4 —2) (—2 á) 6 7) 
(σπα Ss? (2 —42) 
75 ((rsec >= Ø) -Ὁὂ s] 
(rel (3 4) (4 —-2) (6 7) (7 -1) (2 -ᾱ)) 
(2) 3» (s <- (rsec >= 2 
(rel (3 4) (-2 68) (6 7) (-1 220) 
(3) ہے‎ (sS restr (rsec >= 001] 
(rel (3 4) (& 7)) 
Application 
a. Syntax: (f @ x) 
D. Input (s): function; anything 
Output: anything 
c. Description: Returns the result of apolying f 


to the argument x. 


Hanc) 


(t Ghat x) 


relation 
anything 
relation 


(table of functions) 


Produces a relation which pairs 
each left member of the input 
relation to the result of apply- 
ing the right member function ta 


the argument x. 


Consider the following simple 


?* ((op times) 


d. Examples): 


T s 


& 
a. Syntax: 
b. Input (s): 
Output: 


Gs Descriptions 


de Example(s)s list 
of functions: 
72 t == (list (op times) (op +) (op =) (op /)] 
ده‎ (t Ghat (list 4 3] 
(rol (i 12) (2 7) (3 1) (4 1)) 


کت ces ce ces eee‏ اسا m “s mo ees l o eee ee‏ مس Sc ce co‏ سی 


a. Syntax: (t ! x) 
b. Input (s): relation 
Output: relation 


c. Description: The input table to this functional 
must have a domain and range which 
consists of functions only. The 
argument x must be valid for all 
functions contained within the 
table. Fach element of t will be 
replaced by the result of applying 
both the left member and right 
member functions to the argument. 


d.  Exampleís): 
t == (rel ((op times) : (op /)) 
((Op +) : (opcm 
fe (tl (lisb dM 
(rel (12 1) (7 1)) 


Image of Sets 


a. Syntax: (f img t) 
b. Input (s): function; relation 
Output: set 


C Description: Returns a set which is the resuit 
of | applying f to every member at 
the set or relation t. 


d. Example(s): 


ο: sqr == (times ο DELTAI 


“> (sar img (set 1 2 5 4 51 
(set 149 14 23) 


پچ eee ee‏ == —— — — — کس — — — — — — — س کے — — — < 


a. Syntax: (f £ t? 
b. Input (s): function; relation 
Output: relation 


c. Description: Returns a relation which has the 
same structure as the original, 
except that each element 1s 
composed of the result of applying 
+ to both the left and ۳ 
member of the element of t. 


d. Example(s): Consider again the ‘sgr’ function: 


7> )5 $ (seqrange 1 to 4] ۱ 
(rel (1 4) (4 9) (9 16) (16 25) (25 ((؛ت‎ 


a. Syntax: (t rp f) 
b. Input (s): function 
Output: relation 


c. Description: Returns a relation which is the 
result of applying the function f 
to every right member of the input 
relation. 


d.  Exampleís): 
?7* t -—- (listrange 1 to 51 


“> (t rp (rsec times 10] 
(rel (1 18) (2 20) (3 30) (4 40) (3 50)? 


a. Syntax: (f rpi t)? 
b. Input (s): function 
Output: relation 


c. Description: Returns a relation which is the 
result of applying the function + 
to every lett member of the input 
relation. 


d. Examples): 
"2 t == (listrange 1 to 5⁄1 


27> Clrsec times 10) rpi ΕΙ 
(rel (10 1) (20 2) (30 2) (40 4) (50 5)) 


159? 


19. 


ji. 


Restriction of a Function 


— —— —— ee ee کک ہت ټس سم پر‎ 0 = M — ا وص‎ <“ Q m q 


(s restrict £) 


relation (set); function 
relation 


Transforms the function into a 
extensional relation (table) based 
upon the set of domain elements 
given as input. It pairs each 
element of s with the result of 
applying the function f to it. 


Syntax: 


Input (s): 
Output: 


Description: 


Exampleís): Suppose the user wanted a table of 
squares for the subrange 4 to B: 

?# s == (setrange 4 to 81] 

Se sqr == (times o DELTA] 


?>> (s restrict sqr] 


= 25) (6 36) (7 49) (B EE 


140 


(rel (3 16) 


نام منم ما هم پیر هم خم هم 
F3 E D‏ 64 4 42 4( 
0 لاه dx b po Oe C8‏ 9 


Ἢ 


لر Γ-‏ 
|4 ۳3 
ل“ 


pad 
` 
- (1 


μι» 
Gn با‎ 
لت‎ 


12.5 


ο. 


مه سه عم 
122 
أ 
135 


ὅς 


ps 


155 
154 


135s 


APPENDIX D - INDEX TO EFL OPERATORS 


اغ eee‏ نت ست  — Immo‏ 
چم 


cat 
sa 
red 
rev 
as 
bun 
size 
cart 


Oo 
sup n 

cat 

if 

andsign, and 
cl 

cr 

3 


cnv 
sup —1 


cur 
curry 


list 
listrange 
rel 

seq 
seqrange 
set 
setrange 


FHI 


FI 
delta 


— — — — — — — — — تا‎ < « κ 


Addition . 
All 
Application 
anything 
functional record 
functional structure 
Array 
concatenation 
irom sequence 
reduction 
reverse 
Array to sequence 
Bi -uni valent 
Cardinality 
Cartesian product 
Composition 
functions 
repeat using superscription 
Concatenation - array 
Conditional functional 
Con juntion 
Cons left - sequence 
Cons right —- sequence 
Construction 
Converse 
relation 
using superscrceiption 
Curry 
extensional 
intensional 
Data definition 
list 
list range 
relation 
sequence 
Sequence range 
set 
set range 
Data Structures 
filtering 
image 
operate on data part 


161 


154 
m 


147 
148 
147 
1.51 
Rea 
1-31 
149 
129 
ا‎ 
128 
12? 
23 


155 
1m 

is 
142 
143 
128 


125 
124 
125 
175 
نے ے 
UL‏ سر 
aL J‏ 
126 
on‏ 
یبد له 
له دي 
E ain‏ 


O EN 
— a 


1-28 
1 58 


154 
وج 1 
1=9 
15 

15: 

سا 
129 
125 
141 
143 
134 
159 
2 1 
143 
142 


phi 
upsilon 


index 

join 

select 
orsign, or 
divide or / 
dom 

DELTA 
epsilon 
empty 


extend 


PHI 
filter 
=i 
OMEGA 
alpha 
bar 


1 
func 
1sec 
rsec 
op 
iter 
while 


EST 

uni mg 
all 

E 

img 

! cubset 
P= or £. 
لات‎ 

init 
ALFHA 
cap 

+ 

1 ۳ 
omega 
im 
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Data structures, cont. 
operate on form part 
value of a node 

Database 
index 
join 
select 

Difference 

Disjuntion 

Division 

Domain 

Duplication 

Flement selection 

Empty set or relation 

Equality 

Extension of a relation 

Filtering 
data structures 
relations 
sequences 

Final sequence 

First member — sequence 

Formalization functional 

Function definition 
conditional 
direct 
fix left argument 
fix right argument 
infix to prefix 
iteration 
while loop 

Greater 

Greater or equal 

Head - eiementary nair 

Identity 

Image 
data structure 
of domain element 
of range element 
relations — isomorphism 
sets 

Improper subset 

Inequality 

Infix to prefix conversion 

Intial members 

Initial sequence 

Intersection 


Isomorphism — relations 
Iteration functional 
Last member — sequence 


Left member 


ہے 
لته شو 


142 


۳ 
πε 


: 
سف مه 


زرا 
1x‏ 
142 
141 


1 5 


144 


] 1 


بو 
s 3‏ £ 
152 
I‏ 


Ej 


lsec 
lun 

Z 

list 
listrange 
Max 

Mm 

mem 
member 
(ntt 

min 
times 
not 
wig 
nomen 


times 
subset 
divide or 
rng 


am a wf 


r ed 
sup *x 
rel 
rsort 


restrict 
restr 
rev 

Fm 

۳ 5 

run 

sel 


OMEGA 
ALFHA 
ci 

Er 

Sa 
som 
seq 
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Left section 
Left univalent 
Less 
Less or equal 
List definition 
List range definition 
Maximum - set 
Member 
Members 
Membership. 
Minimize sequence 
Minimum — set 
Multiplication 
Negation 
Negation - function 
Noninembership 
Ordered union 
Fair Formation 
Fair list 
Paralleling 
Froduct 
Proper subset 
Quotient 
Range 
Reduction 
array 
Reflexive transitive closure 
Relation definition 
Relational sort 
Relative product 
intensional 
intensional inverse 
primitive 
Restriction 
domain 
of a function 
range 
range and domain 
Reverse array 
Right member 
Right section 
Right univalent 
Selectian 
Sequence 
all but first element 
all but last element 
cons left 
cons right 
convert to array 
convert to matrix 
definition 


> 
— 


143 
144 
143 
144 


aL «ὦ 


122 
134 
125 
151 
τ. 


17 
127 
E 
127 
138 


مه( عم 
F) +‏ 


{5 p a UU سم ها‎ 


سم poh‏ خطز لم لسم pode‏ سم لم 
C4 C] 64‏ 64 لب CH ted C4‏ 


fa‏ ل سا زم 


٦ 

alpha 

as 

omega 

mti 

se qr ange 
set 

۷ 
551۳ 82 
sort 


اک 


sup ~i 
sup κκ 
f sup n 
sup + 
τι 

term 
sup + 


unc 
uncurry 
cup 
theta 
uset 
in1 mg 
un 
while 


Sequence, cont. 
filtering 
first member 
from array 
last member 
Minimize 
range definition 
Set definition 
Set difference 
Set ranges definition 
Sort 
Subtraction 
Sum 
Superscription 
converse 
‘reflexive transitive closure 
repeat composition 
transitive closure 
Tail — slementary pair 
Terminal members 
Transitive closure 
Uncurry 
extensional 
intensional 
Union 
Unique element selection 
Unique set 
Unit image 
Unit set 
While loop 
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APPENDIX E- RPL INPUT FORM SUMMARY 


TABLE 1. Primitive Extensional Operations 


Old Input Form Publication Form 










































selection t sel x t sel x 
relative product t | u t | u 
construction t, baru || 
pair formation Xey κ. V 
union tcup u tcup u 
unit set un x un x 
currying cur t cur t 
uncurrying une t unc t 

| unique element selection | theta s theta s θε 
element selection (added) epsilon t et 
cardinality size t size t size t 
structure str t (deleted) (deleted) 
transitive closure tsup + t sup + D 
empty set empty empty 0 


TABLE 2. Nonprimitive Extensional Operations: Group 1 








Name Old Input Form | New Input Form | Publication Form 
pair list (x, y) η (z, y) 
left pair section (x) (deleted) (deleted) 
right pair section Gy) (deleted) (deleted) 
duplication DELTA x DELTA x Ar 
membership x member t x membert TRI 
nonmem bership x nomem t x nomem t r Èt 
improper subset s 'subset t s !subset t EC t 
proper subset s subset t s subset t ΡΕ] 
equality SEE s t οἱ 
converse inv t, t sup -l cnv t, t sup -1 ا( ہیں‎ 
domain dom t dom t dom t 
range rng t τησ t rng í 
members mem t mem t mem t 
left member Lm (x,t) x Lm t z Lmt 
right member Rm (x,t) | x Rm t E Rm t 
, member Mm (x,t) x Mm t r Mm t 
| right univalent run t run t run t 
left univalent lun t | lun t lun ¢ 
_bi-univalent bun t | bunt | bun t | 
۱ initial members init t init t | init t 
| terminal members term t term t term t 
n transitive closure | tsup * tsup t 
| domain restriction ps t pacc p > t 
range restriction t <- p | t<-p t ss. و‎ 
restriction t restr p t restr p tip | 
sequence filtering (added) p xi t t | 





165 


TABLE 3. Nonprimitive Extensional Operations: Group 2 


Old Input Form | New Input Form | Pubhcation Form 


Q t 

w t 

At 

٤٢ 7 

i 
72007 

t cr r 
min 5 
max 6 
۶۴ھ‎ 

s V t 

t Qr 

و 

pt 

r index d 
r select d 
r join 1 
as t 

t sa: 
(deleted) 
t| f 
E 

t catu 
rsort s 
sort s 

t unimg z 
all t 
ssm t 


— sss 
Publication Form 





alpha t 
omega t 
ALPHA t 
OMEGA t 
td 

x cl t 

[ΕΕ Χ 
min s 
max s 

s cap t 

s Nt 

t Q hat x 
t! x 

mu t 

x Index d 
x select d 
x Join dblist 
as t 

tsal 
(deleted) 
trpi 

f rpit 

t cat u 
rsort s 
sort s 

t unimg x 
all t 


| ssm t 


alpha t 
omega t 
ALPHA t 
OMEGA t 
L و‎ 
πει 

t cr x 
min s 
max s 

5 cap t 

s V t : 
t @ hat x 
Los 

mu t 
Index x d 
select x 
Join x 

as t 

sa t 

ا 580 

rp ft 

7 011 

t cat u 
rsort s 
sort S 
unimg t x 
allt 

ssm t 


first member 

last member 

initial sequence 

final sequence 

ordered union 

cons left 

cons right 

minimum 

maximum 

intersection 

set difference 

apply functional record 
4 apply functional structure 
minimize 

database index 
database select 
database join 

array to sequence 
sequence to array 

seq. to zero-origin array 
relative product 
relative product inverse 
array concatenation 
relation sort 

sort 

unit image 

all 


sequence to matrix 





TABLE 4. Primitive Intensional Operations 


Old input Form 








f Q x ۵ 2 
f img s f imgs 
fog J ° g 
(op + ), (op times), ... |.» 
| (Isecx eee | 29ا‎ ٣ 
| (rsec + y), ... aso ۷٦ٗ 
filg / 
[δι fst 
(deleted) | (deleted) | 
)11 ۳ P m) η | 
| curry f | curry f 
uncurry f uncurry f 
p PHIS ps 
 (iter p-> Í) iter (p — f| 
| (+ bar), (times bar), ... | 4, X 
I I 
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application f@ x 
image imgfs 
composition ue 
infix to prefix (added) 
left section (x+), ο. 
right section Is) peer 
paralleling ۱ ۱ 6 
isomorphism f$t 
formal application f @ bar g 
functional condition | (p-> f; g) 
curry curry f 
uncurry uncurry f 
filtering PHI PB (d z) 
iteration iter Íp -> f] 
formalization + bar, times bar, ... 
identity Id 





TABLE 5. Nonprimitive Intensional Operations 


Old Input Form | New Input Form | Publication Form 


(f while p) 
f red x 


fsupn 


while [p, f| 
f red i 


f sup n 


while loop 


array reduction 
repeated composition 


Miscellaneous Operations 


Name | OM Input Form Publication Form 


N N ېم ېم ېم ېم ېم ېم‎ ON 


upsilon f 
phi f 


delta f 

PI í 

t extend f 
s restrict f 


wig p 





zu 
=y 
times y 
divide y 


orsign y 


not x 


s cart t 





upsilon f 
phi f 

delta f 

PI f 

extend (t, f) 
restrict (s, f) 
wig p 


ΧΙ. x 
x- y x 
times y 
divide y 


κ 


andsign y 
orsign ۷ 
not x 


X 
X 
X 
X 
X 
X 
X 
X 
X 


κ κ κ κ κ κ κα X 


S cart t 


TABLE 6. 


value of node 
operate on form 
operate on data 
image of structure 
extension 

| restriction 

formal negation 


sum 
difference 
product 

quotient 
inequality 

less 

greater 

less or equal 
greater or equal 
conjunction 
disjunction 
negation 
cartesian product 


TABLE 7. Data Input Operations and Syntax 


| Input Form | Publication Form 
identifiers | a, b’, total, ete. G b Mete | 


“abcd 

true, false 
νυ 7; 
fr, y, «°° } 
7 y, "E ) 
CT, 
{m, 
(m, 
πα, 





2 


| 
۱ 





seqrange m to n) 
listrange m to n) 


[ 
( 
(setrange m to n) 
( 
( 


“abed” 


true, false 


(rel (x : y), 


AN 


(set x y 


seq xy... 
151 ٦ 


1 


subrange set 
subrange sequence 
subrange list 











Name 


strings 
booleans 
relation 
set 
sequence 
list 


Publication Form 


y 


== eZ 


< |l << 


M o H 
د مب‎ Ill 


A 


file “name” = zr 
7 < 6 ۳۳ 
display z 
display z 

dz 

L 

να] 1 

env f 

env 


Input Form 


ΧΞΞΥ 


xc = (file name) 
display x 

dis x 

147 

x 

val x 

env f 

env 
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TABLE 8. RPL Command Types 


Name 


data definition 

prefix function definition 
infix function definition 
write data to a file 

read data from a file 
output, form 1 

output, form 2 

output, form 3 

output, form 4 

output value of definition 
output function environment 
output entire environment 


APPENDIX F = RPL LODE AND DOCUMENTATION 


(RFL 
calls: INIT SYS NAMES, WRITE, MAPCAR, SET_USER_ENV, 


TERPRI, FRINiI, SPACES, CONS, READCMD, EXECUTE 
uses free: BUILT_IN_ PREFIX OPS, INTOPS, SYSOPS, CMD, 
USERDEFS, SYSTEM ENV, PREFIX OPHAMES, OFPNAMES, 
TEMPNAMES, ERROÜRCODE, E, FILTER ON 
comments: Shell for RPL: Interpreter. 
د و د جج د د د د د‎ JE EBEL DEERE EEE EERE RHEE ERE HERR E REE HERR EERE EERE EER EERE 
TLAMEDA NIL 
(PROG NIL 
(INIT SYS NAMES) 
(SETG FILTER DON NIL) 
(WRITE (QUOTE (Loading RPL---)?)) 
(SETQ E 95YOUFS) 
(SETQ ERRORCODE (QUOTE ERRORFREE) ) 
(SET@ TEMPNAMES OPNAMES) 
(SET@ OFNAMES NIL) 
(MAPCAR INTOPS (QUOTE EXECUTE) ) 
(SETQ OFNAMES TEMPNAMES) 
(SET@ FREFIX OPNAMES 
EUILT IM PFPREFIX QOFS) 
(SETA E (CONS (CONS (QUOTE SYSTEM) 
(QUOTE SYSTEM)? E?) 
{SETA SYSTEM ENV E) 
(GETG USERDEFS NIL) 
(SET USER, ENV) 
(TERFRI) 
( TERFRI? 
(WRITE (QUOTE (RPL INTERPRETER ON LINE! !))3 
(TERFRI?) 
(TERFRI) 
LOOF (SET@ ERRORCODE (QUOTE ERRORFREE) ) 
(FRIN1 (QUOTE :7}} 


(SPALES 1) 

(SETO CMD (READCMD) ( 
(TERPRI) 

(EXECUTE CRD) 

(GO LOOF I) 
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(INIT SYS NAMES 
3 3C 3C JE 3E E JE C JC CAE JC JE JE JE C JC JC JE OE JC JC OE 9E OE JEDE JC OE JC ACE JC AE OE COE CAE JC COE JC JC XC OE E JEDE ICE EIER OE JE HER OE AE 
called by: πει. 
uses free: EMSG, SETOP, NMUMOP, SPECIAL CASES, SETS, 
INTOFS, BIFTAG INFIX, SYSOPS, PREFIX OPNAMES, 
BUILT IM PREFIX OPS, O0PNAMES, USERDEFS 
comments: Initialization required to execute RPL. 
کر در اد په پو په‎ RE RR د چ ن چ چ د چ د چ چ چ د چ چ د چ چ چ چ چ چ چ چ چ چ چ د چ چ چ چ‎ EDR ER EERE KEE 
CLAMBDA NIL 
(GETO USERDEFS NIL) 
(SETG OPNAMES 
(QUOTE (SYSTEM done file display dis val env sup rel 
set seq list setrange seqrcange listrange func 
empty true false filter hd tl lsec rsec op if 
iter or and <2} ۴ 8 o £$ red img curry uncurry 
FHI I while upsilon phi delta FI sel Ži و‎ : 
extend restrict wig cup member nomem !subset 
subset = -> i— restr 3; cl cr cap N Ghat ! cat 
+ — times divide / != 4 3 4= >= andsign orsign 
cart un cur unc theta epsilon size DELTA cnv 
rev dom rng mem Lm Rm Mm run lun bun init term 
alpha omega ALFHA OMEGA min max uset mu index 
select joain as sa rp rpi rsort sort unimg all 
ssm not PHIaux xi)?)} 
(SETQ BUILT IN FREFIX ۳۵ 
(QUOTE (1sec rsec op if iter hd tl un cur unc size 
theta epsilon DELTA cny rev dom rng mem run 
lun bun init term alpha omega ALFHA OMEGA min 
max mu select join as sa rsort sort all ssm 
curry uncurry I while upsilon phi delta FI 
wig not uset))) 
(SET FREFIX OFNAMES NIL) 
] 5۲ ۲۱ SYSOFS (QUOTE (Cunimg closure select_ail) 
(hd closure Hd? 
(tl closure Tl) 
(filter closure filter} 
(run closure run) 
(t closure construction) 
(size closure cardinality) 
)۳ 1 closure rel prod inv? 
(rp closure rel prod) 
(img closure img) 
(empty Eset?) 
(true true) 
false false) 
(+ closure +) 
) closure -) 
(times closure *) 
(divide closure /) 
(/ closure /) 
(4 closure <) 
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(> closure 2) 

(<= closure <=) 

(25 closure >= 

(not closure not?) 

(or closure or) 

(and closure and) 

(orsign closure or) 
(andsign closure and? 
(epsilon closure elementselect) 
(theta closure unitset select) 
(un closure unitset) 

(cup closure union? 

(Cap closure intersection? 
(X closure setdiff) 

(cart closure cart) 
{subset closure subset) 
('subset closure !subset) 
(= closure =) 

{1= closure <>) 

(<> closure <=>) 

(member closure member) 
{(nomem closure nomen) 

(A: closure Zi?) 

(file closure file) 

(sel closure sel) 

(: closure :) 

(dom closure dom? 

(rng closure rng) 

(cnv closure converse) 
(sup closure superscript) 
(rev closure reverse_array) 
(**x closure star) 

( closure isomorphism? 
(as closure array to seq? 
(sa closure seq to array) 
(min closure min? 

(max closure max) 

{cat closure concatenation: 
fcur closure curry_ext) 
(unc closure uncurry ext) 
(irsort closure rsort) 
(sort closure sort?) 

(red closure reduction? 
(uset closure unique set] 


{i= >= or and union intersection 


ARIST EIFTAG_INFIX 


(HI TE (+ = #7 


setdiff cart subset !subset = =: member 67 
construction ~: sel : img rel prod rel prod inv 
filter superscript isomorphism concatenation 
Seq to array select all reduction)2)) 


DX 


(QUOTE (Co ==(fune (f g) ¿(func x (f (g x] 


(lun t --((run o cnv) t)) 

(bun t ==(run t) and (lun t???) 
(x Rm t ==(x member (rng t)); 
(x Lm t ==(x member (dom t))) 


(mem t ==((dom t) cup (rng t)}) 
(term t ==((rng t>) N (dom t))) 
(x Mm t ==(x member (mem t))) 

(init t ==((dom t> N (rnqd t))) 
(t £— p ==((p o tl) filter t)) 


(p -> t ==((p o hd) filter t?) 

(t restr p ==((p —> t>) <-— p)) 

δα. ==(t cup ((rsec member 

. (idom u) \ (dom t))) رح‎ u))) 
(alpha t ==((theta 6۲ init) t)) 
(Omega t ==((theta o term) t?) 
] ۵۱۳۳۱۸۵ 5 ==(s ¢-(rsec nomem (term s] 
(OMEGA t ==Clrsec nomen (init t)) 

=> hoe) 
(x cl t ==( (rel (x : (alpha t)))} 
cup t)) 


cr x ==(t cup (rel (iomega t): x] 
(f à x ==(F x)) 
و‎ y 7"-í(ílist x y)) 
] 7۰۱ 7/۰۱ ==(func (f g) (func (x yd) 
(list (f x?) (dg y] 
(I x == x) 
(wig p ==inot ο ϱ)) 
(DELTA x =={list x x?) 
(phi ==(lsec 1 RII?) 


(delta ==(rsec AiAi 1(( 

(f while p --í(if p -> (iter p το... 
ole 

(PI f --(delta írsec rp {}}} 


ا 
(sel o (I Aiki £39)‏ 
(t extend f ==‏ 
(1f (rsec member (dom t)»‏ 
(l1sec t sel) ; f?)‏ 5— 
(S restrict f --(((op :)‏ 


نا نتا 
DELTA)) ime vere‏ لا o ilI Ain f)‏ 
(xs index t ==(Clrsec sel x)‏ 
Omar I) απο to)‏ 
(t @hat x ==‏ 
(thd (: bar) (ίσες G8 x? o tli}‏ 
img t)‏ 


(t ! x ==(rsec @ x) £t t)) 
[mu t ==(t \ (t Z: (t sup +j 
(D xi r ==(mu ((r sup +) restr 5))) 
[t FHIaux 5 ==((s sel 1) , 
((rsec Lm t) x1 (s sel 3] 


لم 1 


]52- ٢۱اپ‎ 


(p PHI s ==(((s sel 1} - p? 
PHIaux s)) 
(ssm t --((unc o (rsec sa 1(( 
((rsec sa 1) t t))) 
(y all t --((cnv t) unimg ۷( ( 
[x select d -- 
(rng o (rsec نز‎ (x index dl 
(4 join dp -- 
(C€lsec (cup o (hd f, bar) tl») img 
o (((rsec sel 1) 
(41 bar) (rsec sel 2)) 
ο ٣)۷ Aimi I? 
o ((lsec index?) 
4:4: (lsec x index] 
dp) ) 
[curry f --(func func y (T (X , yil 
(uncurry f ==(func (x y) ((f x) y] 
(GETO SETS (QUOTE (rel set setrange seq seqrange list 


listrange))) 
(SETQ SFECIAL_CASES 
(QUOTE (Eset Erel rel 
listrange op lsec rsec func if 
repeat reduce)2)) 

(SETO NUMOF (QUOTE (+ — * / X > X= >=))) 

(SETQ SETOF (QUOTE (cart union intersection 
subset 'subset))) 

((BAD CMD bad command) 
(UBI unbound individual) 
(PARAM number of parameters in error} 
(BAD_RANGE bad range variables) 


set setrange seg seqrange list 


when itar 


setdiff 


fSE1O EMSG (QUOTE 


(BAD_SEQ bad sequence) 
(EXP_SET set, relation, sequence 
or list expected) 
(EXP SED sequence expected) 
(EXP NUM numeric arguments expected) 
(EXP_REL relation expected) 


(URTE unbound table sl ement} 
(EXP FUNC function expected) 
(UDF undefined function? 
(BAD SYNTAX svntax error?) 


predicate expected! 
arguments) 
set expected) 


(EXP BOUL boolean 
(BAD ARGDS invalid 
(EXP UNITSET unit 


(EXP. INFIX infix operator expected: 
(EXP PAIR elementary pair expected) 
(EXF NSET numeric set expected) 
(EXP ARRAY array expected) 

(ZERO DIV zero divisor) 

(EXP NEMPTY non-empty set expected) 
(RIF built in function or RFL keyword]? 


i7m 


(SET_USER_ENV 
بد‎ EE Ee E E JE AE EP OE C AC XE JC XL OE E dE dE ہر‎ DAE AC JE JE a ee 


calls: MEMBER, WRITE, TERPRI, READ USER DEFS, READTERHM 
called by: RFL, EXIT 
binds: RESF, FILENAME 


tt ee ee 0e 9 3E 3E XC AC OE OE 3C ید رد د ج غ د د د د د ید د جج ج ید د ید‎ € JE AP 90 9 90 9€ چ د جد د جد د‎ 
[LAMBDA NIL 
(PROG (RESP FILENAME) 
(WRITE (QUOTE (DO YOU WANT TO RESUME A FREVIOUS 
RPL SESSION? <y/n>?))) 

(SETQ RESP (READTERM) ) 

(COND 

( (MEMBER RESP (QUOTE (y Y))) 
(WRITE (QUOTE’ (INPUT FILENAME) )) 
(TERPRI) 
(SETQ FILENAME (READTERM) > 
(READ _USER_DEFS FILENAME]) 


{EXECUTE 

چ د چ ج چ ج جرب مج چا اجب چا چا و دب پر دا د چ یز پر سز پر ہز د چ بد لی اعدا دا چ چ د جد چ د جد چ یډ ہد دز زا سی 3 جج د خا 
args: CMD‏ 
calls: MEMBER, FOSIT, LENGTH, DER BINDING, FILE Ιστ.‏ 


EV, DISPLAY, EXIT, LIST, CONS, ERROR_HANDLER 
called by: READ_USER_DEFS, RPL 
binds: Χ 
uses free: E 
comments: Command level parser. 
SSL EERE EERE EERE RE RE EEE EERE EEE EERE KEKE EKER EERE RE REESE SR HEEEE 
LLAMEDA (CMD) 
(PROG (5) 
(SETO Xx (FOSIT CMD (QUOTE ==))) 
(RETURN (COND 
( (AND (EQ X 3) 
(EQ (LENGTH CMD) 32?) 
(DEF BINDING CMD) ) 
[L (ND (EÜ X 5) 
(EQ (LENGTH CMB) 4)? 
(COND 
((ED (CAR CMD) (QUOTE file); 
(FILE WRITE (EY (CADR CMD?) E) 
(EY (CADDDA CMD) E))) 
(T (DEF_BINDING CMD] 
((AND (ED X 4) 
(EU (LENGTH CMD) 5)) 
(DEF BINDING CMD) > 
t (ED X Q) 
(COND 
( (AND (MEMBER (CAR CMD) 
(QUOTE (display dis d env vai)??? 
(ED (LENGTH CMD) 2?) 
(DISPLAY CMD) > 
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( (EQ (CAR CMD) (QUOTE done)) (EXIT) ) 
C (EQ (LENGTH CMD) 1) 
(COND 
((ED (CAR CMD) (QUOTE env)) 
(DISPLAY (LIST (QUOTE env} NIL))) 
(T (DISPLAY (CONS (QUOTE d) CMDJ 
(T (ERROR HANDLER (QUOTE BAD CMD) CMD} 
(T (ERROR HANDLER (QUOTE BAD CMD) CMD) 


(DEF _ BINDING 
δε” چ چ چ چ و چ ج چ چ چ چ چ چ چ چ دز )اج بد رې رھ ې ې ۾ جهو چچ چ جج‎ E: 
args: DEXP 
calls: MEME, ERROR_HANDLER, LDIFFERENCE, SPACES, 
WRITE, LENGTH, LOCKUP, CONS, LIST, EV, LAST, 
SASSOC, TERFRI, RPLACD, READTERM 
called by: EXECUTE 
binds: NAME, NEWNAME, EXP, RESP 
uses free: ERRORCODE, OFNAMES, USERDEFS, PREFIX OFNAMES, E 
comments: Makes all bindings to the environment; includes 
mechanism to implement simple recursion. 
د چ د جد ج چ د جد د د ب و ب‎ E EE E E وا چ لھ چ چ چ چ جج د چ د د جد جد جد چ چ جج چ جذ جد جد د‎ εκ. αι κ ee سے سی‎ 
CLAMEDA (DEXF? 
(PROS (NAME EXF NEWNAME RESF) 
LCOND 
( (EQ (LENGTH DEXP) 5} (SETQ NAME (LADR DEXF) Y) 
(T (SETO NAME (CAR DEXF] 
L COND 
( (MEMB NAME OFNAMES) 
(WRITE (QUOTE (SYSTEM DEFINED FUNCTION OF 
KEYWORD, QVERWRITE? <y/ns))) 
(SETG RESP (REñDTERH)) (TERPRI) 
(COND 
(CNOT (MEMB RESF (QUOTE (Y y] 
(WRITE (QUOTE (ABORT AT USER'S REQUEST) >) 
(TERFPRI P TERFRI EGO EXIT] 
L COND 
( (EC (LOOKUP NAME E) NIL? 
(SETO NEWNAME NIL) 
(SETO E (CONS (CONS NAME NIL) E))) 
) ۲ (SETQ NEWNAME Τη 
L COND 
((EQ (LENGTH DEXP) 4) 
(SETQ EXP (LIST (QUOTE closure) 
(CADR DEXF?) 
(CADDDF DEXF) E))) 
( (EQ (LENGTH DEXF) 5) 
(SETQ EXP (LIST (QUOTE closure) 
(LIST (CAR DEXF) 
(CADDR DEXF) > 
(CADDDR (CDR DEXF)) E))3 
(T (SETü EXF (EV (CAR (LAST DEXF)) ΕΙ 


BIND 10 
(RETURN (COND 
[C (EQ ERRORCODE (QUOTE ERRORFREE: > 
(COND 
((EQ NEWNAME T) 
[ COND 
( (AND (MEME NAME PREFIX DFMAMES) 
(EQ (LENGTH DEXF} 5)) 
(LDIFFERENCE PREFIX OFNAMES 
(LIST NAME) >> 
(CAND (NOT (MEMB NAME PREFIX OPNAMES) } 
(NOT (ED (LENGTH DEF) 3))) 
(SETQ PREFIX OFNAHMES 
(CONS NAME FREFIX OFNAMESI 
(COND 
4 )۳ ۲ (MEME NAME OFNAMES) ) 
{(RPLACD (SASSQC NAME له‎ EXP) 
(RFLACD (SASSOC NAME USERDEFS) DEXP) 
(SFACES 1) 
(WRITE (LIST NAME (QU0DTE Redefined) )3 
) ۲۳۳۳۸۳۰۳۰۲ (CTERPRI) > 
(I تا ایا‎ ٢ کک‎ 
(CONS (CONS NAME DEXF? USERDBEFS) 3 
t COND 
(CAND (LISTP EXP) (EQ (CAR EXP) 
(QUOTE closure) )> 
(COND 
((OR (EQ (LENGTH DEXF) 4) 
(ED (LENGTH DEAR) 28 
(SETQ PREFIX OPNAMES 
(CONS NAME PREFIX OPNAMES? 
(RFLACD (SASSOC MAHE E) EXF] 
(T (WRITE (QUOTE (BINDING CANNOT BE MADE); 
(TERFRI) (TERFRI?) 
(COND 
( (NOT (EQ NEWNAME T)? (SETO E (CODE EI 


[T] 
A, 
بسا‎ 
لسا‎ 
ہیں‎ 


(DISPLAY 


x x X‏ چ چ ج چ چ ج چ چ ج ج ر ج د د جد جد جد و جد جد و د ج د د ج جد چ جد جد E‏ چ ج ج چ £ £ چ چ چ چ ج ج ج جو 


args: CMD | 

calls: MEMBER, LITATOM, FRINT, S5HOW_ATOM. TERFERFI, 
DISPLAY_ENYV, ERROR_HANDLER, LOOKUP, EV, TYFE, 
LENGTH 

called by: EXECUTE 

binds: REY. EXP. EVESE 


uses frees: EREDRCODE, E, USERDEFS 
comments:  Perforis all output to the screen to include 
the "val" and "env" commands. 
ج ج جج جد‎ κα πανκ د جذ ج ن چڊ د‎ CAE OE لیر یي یز یړ د ید سر د جد ید‎ E پل یر د جد یر بب‎ JE AE AE AE AE چ د د جد د یز ال زي یرال پل ہز‎ E 


CLAMBDA (CMD) 
5 (KEY EXP EVEXP) 
(SETO EEY (CAR CMD)) 
(SET@ EXP (CADR CMD) ) 
LCOND 
t (MEMBER KEY (QUOTE (d dis displav))) 
(COND 
CC(LITATOM EXP) 
(SETQ EVEXP (LOOKUP EXP USERDEFS}: 
(COND 
( (NULL EVEXF) 
(PRINT (QUOTE Undefined))) 
(T (PRINT EVEXF3 
(T (SETO EVEXP (EV EXP E») 
(COND 
((NULL EVEXP) 
(FRINT (QUOTE Undefined))> 
(T (SHOW ATOM ΕἯΕΧΕ'} 
(TERPRIA 
(1 LCOND 
( {NOT {NULL ΕΧΕ}} 
(SET EVEXF (EV EXP E] 
(CON 
¿(ED ERRORCODE (QUOTE ERRORFREE? ) 
(COND 
C (AND. (EQ FEY (QUOTE val?) 
(LITATOM (CADR CMD? )) 
(COND 
i (NULL EVEXF? 
(PRINT (QUOTE Undefined) )} 
(T (SHOW ATOM EVEXP) 
(TERPRI I 
( (AND (EQ KEY (QUOTE env)) 
(NULL EXF)) 
(DISPLAY ENY EXP)) 
( (GND (EQ KEY (QUOTE env)>) 
(LITATOM (CADR CHD) ) 
(Etat ΕΕ ΕΜΕΧΕῚ 
(QUOTE closure?) 
(EQ (LENGTH EVEXF) 43) 
(DISPLAY ENV EXP) 
((EDQ KEY (QUOTE enw)? 
(ERROR_HANDLER 
(QUOTE EXP FUNC? CMHD2?)) 
(T (ERROR_HANDLER 
(QUOTE BAD SYNTAX) CMD] 
(TERFRI J} 


(ERROR_HANDLER 
3 3C 3E 3E 3C 3E Je 3c JC JC JC 3C 3C 3E 3C 9e JC Je 3E 3C JC JC JC JC JC 9 9 9E ړا د جد جد جو جد د جد جد پل لا یلا سي د د جد جد د چب جد جد‎ Jc OE EE GE یړ دب‎ 
args: CODE, EXE | 
calls: WRITE, TERFRI, PRINT LIST, LODORKUF 
called by: DEF BINDING, DISPLAY, EVRANGE, EVSEQ, RFAFFLY, 
ARRAY REDUCTION, MIN SET, RFL REFEAT, EXELDUTE, 
EV, EV SPECIAL CASES, ٣۲۷۴م‎ ۹۹٣۷۶۹١۹٦۶۷ ٣ 
RIF_APPLY, ARRAY _CONCATENATION, HEAD, MAX_SET, 
MEM, SEL, SUPERSERIFPT, TAIC ΕΤΕΡ: ΙΙ. 
COERCE TD REL 
uses free: EMSG, FILTER DON, ERRDORCDDE 
comments: Based on the CODE given, displays the appro- 
piate error message and the probable cause of 
error, EXP. 
کک د جد جد ج جد‎ ΧΧΧ ΚΣΕ ΧΧΧ ΚΕΝ جد د جد د مید د جد جد جد د جد جد ج‎ E E AE AE E ېې یړال یز‎ E GE ج ج چ چ جد جد د د د‎ E E 
TLAMEDA (CODE EXP) 
(FROS NIL 
(COND 
((EQ FILTER UM T) 
(GO EXIT))) 
(WRITE (QUOTE (##* ERROR #*#))) 
(WRITE (LODEUP CODE EMSG)) 
(TERFRI? 
(WRITE (GUOTE (Cause of error ==2))) 
(PRINT LETS ier? 
(TERPRI) 
cAITOSGETO ERRORCDDE CODE) NMIL1) 


(ΕΑ : 
XXE 3 AC 3E Je JC Je He پر پد‎ 9C 3C OCA OE OE JC 3E C ACC GE EIC OE JC AI 3E د د ج‎ GC OE OE EE EO JC OE JC JE چ ج چ چ چ چ ج چ د چ چ پل هی ہد‎ 
calls: MEMBER, WRITE, 1۳٣٢٣٣ و‎ WRITE USER LES, 
READTERM, SET USER ENV 
called by: EXECUTE 
uses free: BUILT_IN_PREFIX_OFS, SYSTEM ENV, LUSEEDEFS, 


FREF IX. OPNAMES, E, FILENAME, RESF 
comments: Used to exit the RFL environment or begin 
another session. 
بدا ېد بد ېبد پر پر بر ید‎ JC Je Je Gb 3E 3C OC 3E رج ہد ید کد‎ IC IC OC 3E 3€ Je یدازا‎ E E E AE يبد بد بد‎ E ERE OG E ERE یز‎ 
CLAMEDA NIL 
(WRITE (GUDTE (DO YOU WANT TO SAVE ENVIRONMENT FOR 
FUTURE USE? m ο) 
(SETQ RESF (READTERM: > 
(COND 
( (MEMBER RESF (QUDTE (y Y))) 
(WRITE (DUOTE CINFUT FILENAME) )> 
(TERFRI? 
(SETQ FILENAME (READTERM) ) 
(WRITE USER_DEFS FILENAME) >) 
(TERFRI) 


178 


(WRITE (QUOTE (EXIT TO LISP - FRESS ^D))) 
(TERPRI) | 
(WRITE (QUOTE (EXIT TO UNIX — PRESS “C))) 
(TERFRI) 
(WRITE (QUOTE (CONTINUE RPL — PRESS <RETURN?))) 
(TERPRI) 
(READTERM) 
(TERPRI) 
(WRITE (QUOTE (DO YOU WANT TO CLEAR CURRENT 
ENVIRONMENT? <y/n?2))) 

(SETQ RESF (READTERM)) 
(TERPRI) 
(COND 

((MEMBER RESF (QUOTE: (y Y))) 

(SETO E SYSTEM ENV) 

(SET@ USERDEFS NIL) 

(SETQ FREFIX_OPNAMES BUILT_IN_PREFIX_OFS))) 
(SET_USER_ENV]) 


(EV 

E‏ په JE OCC OE ee‏ ېږ پو ید پر پو C‏ ہر ہر ہر ہی ہی ہر ee‏ د جد جد ج جد د 
args: EE IE‏ 
calls: NUMBERP, STRINGP, ATOM, MEMBER, LOOKUF,‏ 


ERROR HANDLER, EV SPECIAL CASES, LENGTH, 
PREFIXOF, INFIXOP 
Called by: EXECUTE, DEF_BINDING, DISPLAY, MAFEV, 
EV_SFECIAñL CASES, EVSEQ, INFIXDF, ۳٣٢٣٣ 1 ولل‎ 
RPAFPLY, ARRAY _ REDUCTION, RFL_REFEAT, 
MAKE UNIQUE 
binds: X, TAG 
uses free: SPECIAL CASES 
comments: Given an expression, EXP, and its environment, 
E, this function directs its evaluation. 
X 3 + XC OC dC JE CAE Je QC 3 E OE Je ACE JE GE JE AC OE JC ACE JE JEJE OE OEOE AC JE GE بب‎ JE د چ جد جد چ جد جد د چ ید چ جد ب خد د چ‎ xo REO ېز‎ K 
[LAMBDA (EXP E? 
(FROG (X TAG) 
(RETURN (COND 
((NUMBERP EXF) EXP?) 
((STRINGF ΕΧΕ} EXP) 
((ATOM EXP) 
(SET OAS [SDD F IJ ΕΧΓ E) 3 
(COND 
( (EQ X NIL) 
(ERROR_HANDLER 
(QUOTE URI) EXP?) 
(Τ X})) 
(T (SET TAG (CAR EXF)) 
(COND 
( (MEMEER TAG SPECIAL CASES) 
(EV SFECIACT CASES EXF E)) 
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( (EQ (LENGTH EXP) 2) 
(PREFIXOP EXP E)) 
C (EQ (LENGTH EXP) 3) 
(CDND 
((LISTP (CADR EXF)) 
(EV SPECIAL CASES EXP E)) 
(T (INFIXOP EXF EJ 
(T (ERROR_HANDLER 
(QUOTE PARAM) EXF1) 


(EV-SPEL IAE DOSES 
دج دب ی جد ج ج ج ج ب ع‎ E دج‎ oe b eo o 
args: Ex FE 
calls: MEMBER, ALL_PAIRS, ATOM, CONS, MAKE_UNIQUE, 
ERROR_HANDLER, LENGTH, EV, EVRANGE, EVSED, 
: LIST, TYFE, RFL REFEAT, ARRAY REDUCTIOÜUNM 
called by: EV 
binds: TAG, LOW, HIGH, F 
uses free: PREFIX_OPNAMES, ERRORCODE, SETS 
comments: Handles all operators with special syntax. 
LLL EE HH LEE EE EEE EH EERE EEE سے چ چ ہد ہچ و وہ ہز جو رہد د چ ج چ چ د ج د د د د د چ د د د جد‎ E 
LLAMEDA (EXP E) 
{FROG (TAG LOW HIGH F} 
(SETQ TAG (CAR EXP)) 
(RETURN (COND 
۲ (MEMBER TAG SETS) 
(COND 
C (EQ TAG (QUOTE set)> 
(SETQ EXP (CONS (QUOTE Eset) 
(MAKE UNIQUE 
(COR EXF) 
MIL Ej 
( (EQ TAG (QUOTE rel)) 
(SET@ EXF (CONS (QUOTE Erel) 
(MARE UNIQUE 
(CDR EXP? 
MIL E))) 
(CDND 
((NOT (ALL FAIRS (CDR EXF)?) 
(ERROR _ HANDLER 
(QUOTE EXP REL) EXF)) 
(T EXP))) 
tL (ED τος (QUOTE setrange)) 
(COND ; 
L (AND (EQ (LENGTH EXP) 4) 
(EQ (CADDR ΕΚΕ} 
(QUOTE to))) 
(SETQ LOW (EV (CADR EXP) E}? 
(SETQ HIGH (EV (CADDDR EXF) E)) 
(COND 
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C (ER ERRORCODE 
(QUOTE ERRORFREE) ) 
(SETQ EXF 
(CONS (QUOTE Eset) 
(EVRANGE LOW HIGH] 
(T (QUOTE impossiblel 
(T (ERROR_HANDLER 
(QUDTE BAD RANGE) EXF2 
L (MEMBER TAG (QUOTE (seq seqrcangse?)? 
(SETQ EXP (CONS (QUOTE Erel} 
(EVSEQ EXF E] 
L (MEMBER TàG (QUOTE (list listrange?)? 
(SETQ EXF (CONS (QUOTE Erel) 
(te 7SEe وت‎ EJ 
(T «(QUOTE impossiblel 
((MEMBER TAG (QUOTE (Eset Erel))) EXP) 
((EQ TAG (QUOTE func) ) 
(LIST (QUOTE closure) 
(CADR EXF) 
(CADDR EXF) Ε)) 
C (AND (EQ TAG (QUOTE op)? 
(EQ (LENGTH EXP) 2)) 
(SETQ F (EY (CADR EXF) E)> 
(COND 
(COR (NOT (EÜ (TYPE F); 
(QUOTE closure))? 
(AND (EG (LENGTH F? 2) 
(MEMBER (CADR EXP) 
PREFIX OFPNAMES?) } 
(AND (EQ (LENGTH F) 4) 
(ATOM (CADR F] 
(ERROR_HANDLER 
(QUIDTE EXP INFIX? 
(CADR EXP?) 
(T (LIST (QUOTE closure: 
(QUOTE 7x? 
ΤΙ, LIST ELOTE 7x3) 
(GUOTE sei) 1) 
(CADR EXP) 
(CIS (QUOTE ?x) 
(QUOTE seal: 2): 
El 
( (AMD (EQ TAG (QUOTE lsec)) 
(EQ (LENGTH EXF) 3)? 
(LIST (QUOTE closure} 
(GUDTE ^x? 
(LIST (CADR EXP) 
(CADDR EXF) 
(QUOTE 7x)) E)> 
( (AND (EQ TAG (QUOTE rsec)) 
(EQ (LENGTH EXP) 3)) 
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(LIST (QUOTE closure) 


(QUOTE 7x) 
(LIST (QUOTE 7x) 
(CADR EXP) 


(CADDR EXP)) E)) 
((AND (EQ TAG (QUOTE if)) 
(EQ (LENGTH EXP) 6) 
(EQ (CADDR EXP) (QUOTE -=)) 
(EQ (CADDDR (CDR EXPO) (QUOTE ٩ ((( 
(LIST (QUOTE closure) 
(QUOTE 7x) 
(LIST (QUOTE when) 
(LIST (CADR EXF) 
(QUOTE ?x)9? 
(QUOTE do) 
(LIST (CADDDR EXP) 
(ΠΟΤΕ Prd) 
(PUDTE elsedo) 
(LIST (CADDDR (CDDR EXF} د‎ 
(DEGTE پ2‎ ٦ 
Γ(εα τὰς (GUDTE when?) 
(COND 
( (ED (EV (CADR EXP) E) 
(QUOTE true); 
(EV (CADDDR EXP? E23) 
((EQ (EV (CADR EXP) T E) 
(QUOTE falze)) 
(EV (CADDDR (CDDR EXF)>) در‎ 
(T (ERROR_HANDLER (@GUOTE EXF_BOOL) 
(LIST (CADR EXP) «QUOTE in?) EX 
( (AND (EG TAG (QUOTE iter)? 
(EQ (LENGTH EXF?: 4) 
(EG (CADDR EXP) (QU0TE -22)) 
(LIST (QUDTE closure) 
(QUOTE 7x) 
(LIST (QUOTE repeat? 
(CADDDR EXP) 
(QUOTE until not) 
(CADR EXP) Ε)) 
( (EQ TAG (RUOTE repeat)? 
(RFL REPEAT EXF Ε)) 
(CAND (1 ISTP (CADR EXF)) 
(EQ (LENGTH (CADR EXP)) 2) 
(EQ (CADADR EXF) (QUOTE bar))> 
(LIST (QUOTE closure) 
(QUOTE Fx) 
(LIST (LIST (CAR EXP) 
(QUOTE Tx?) 
(CAADR EXP) 
(LIST (CADDR EXP) 
(QUOTE ον) برح‎ 
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( (EQ TAG (QUDTE reduce) ) 
(ARRAY REDUCTION EXF E)? 
(T (ERROR_HANDLER 
(QUDTE BAD SYNTAX) EXP1) 


( MAFEV 
د د د جد د د د د ی د د ج جو‎ -A -AE -A AE جد کے‎ E دہ رہ ری رہ یہ ہہ رہ جد د د چ چ جد د چ ج جد د جد جد ج د ج جد جد د کک کا‎ 
args: EE 
calls: MAPCAR, EV 
called by: EVSEQ . 
binds: X 


comments: Given the list, L, and its environment, E, it 
returns a list of evaluated elements. 
< + عطاق پر ېښ بد پو < پر ېړ‎ c ز يز پد بر څړ پر چیه چب‎ C de و ددد رز د‎ E ج ج ا چ چ ےھ چ چ ت چ دلو دابز د چ ج ر جر چ خد په ې خ وز د‎ 
CLAMBDA (L E) 
(MAPCAR L (QUOTE (LAMBDA (X) (EV X EJ) 


(EVRANDE 
de HER کون هن‎ I Ee هغ ځي ودل ایل پل‎ de ac I REGE ې‎ LE ee EE EERE EERE hE ee re ee 
args: LOW, HIGH 
calls: NUMBERP, LE@, ERROR_HANDLER, LIST, CONS, 
DIFFERENCE 
called by: EV SPECIAL CASES, EVSED 
binds: t: 


comments: Enumerates the range from LOW to HIGH and 
returns the list of numbers. 
BEELER EE ERK e QE OE JE OE AIC AE OE IC JE JE OE OE OE JEDE ACIE OE CAE IE AC UE OE JE HC AGE IRE OE EG XC GE EO XE E 
[LAMBDA (LOW HIGH) 
(FROG (L) 
(SETQ L NIL) 
(CDND 
(CAND (NUMBERP LOW) 
(NUMBERP HIGH) 
(LEQ LOW HIGH)? 
(G0 MAKE_LIST?}) 
(T (ERROR_HANDLER (QUOTE BAD RANGE?) 
(LIST LOW HIGH?) 
(GD EXIT))) 
MARE_LIST 
(COND 
((EQ LOW HIGH) (SETQ L {CONS LOW L)))} 
(I (SET L (CONS HIGH LJ} 
(SETA HIGH (DIFFERENCE HIGH 13} 
(GO MAEE LIST?)) 
EXIT(RETURN LJ) 
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(EVSED 
HEH HEHEHE HEB د د د‎ AE DE 3E OE OE JE JEDE 3C JC OE IEEE COE 3E DE چ چ چ چ چ چ .رع .ہر ید‎ E JE چ چ چ چ‎ JE EXE EHE EE 
args: Su, E 
calls: MEMBER, GREATERF, ERROR_HANDLER, LENGTH, MAFEV, 
EV, EVRANGE, SEQ TO REL, LIST_TO REL 
called by: EV SPECIAL CASES 
binds: TAG, S, LOW, HIGH 
uses free: ERRORCODE 
comments: Takes the tagged sequence or sequence range, 
Gi, its environment, E, and returns a tagged 
evaluated relation. 
اس ہی وې چا‎ ΚΕ ΚΑΕΝ ΚΒ ΚΣ ΒΒ Να ΠΕΜ ΠΚΕ چ‎ ΠΕΚΚ ΕΚ ΠΕΝ تاکن اق چ چ چ چ چ د چ چ چ چ چ چ چ‎ e سی‎ 
TLAMBDA (SO E) 
(FROG (TAG S HIGH LOW). 
(SETO TAG (CAR ((ناه‎ 
(SETQ S (CDR S@Q)) 
tL COND 
((AND (MEMBER TAG (QUOTE (seq 115(۶ (۶ 
(GREATERP (LENGTH S?) 1?) 
(SETQ S (MAFEV 5 راع‎ 
(GO COERCE) } 
(T (COND 
{CAND (Eù (LENGTH S) 3) 
(EQ (CADR S; (QUOTE to;;) 
(SETQ LOW (EV (CAR S) راع‎ 
(SETA HIGH (Εν (CADDR 5; E)) 
(COND 
((EQ ERRORCODE (QUOTE ERRORFREE)? ) 
(SETQ S (EVKANGE LOW HIGH); 
(SD COERCE) ) 
(T NIL))) 
(T (ERROR_HANDLER 
(QUOTE BAG SEG) 51 
COERCE 
(RETURN (COND 
[ (Ell ERRORCODE (QUOTE ERRORFREE? ( 
(COND 
((MEMBER TAG (QUOTE (seq seqrcangse??? 
(SEQ TODO REL 3)) 
(T (LIST το REL Si 
(T NILI? 
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0۳ ۱۳ 1 ) 
چو اټ یي الال ېي AE AE‏ د جد د جد چڊ جد جد جد جد ہو AE‏ نہ نہ نہ ہی ج ہی ہر ج جج جد جج جد ہر ج ج ج ج د ج جد د جد جد جد د جد جد جد جد جد د جد جد جد ج JEJEJE‏ 


args: TEXP, ENV=I 

calls: EV, TYPE, LIST, CONS, RPAPFLY, ERROR_HANDLER 
called by: EV 

binds: ووو لا پوسا‎ A 


uses free: ERRORCODE 
comments: FPerforms pre-processing for evaluation. The 
arguments, L and R, and operator, GF, are 
extracted from IEXP and evaluated in ENV-I, the 
environment. The argument list is created and 
is sent with the operator to be evaluated. 
GG ROC GE GE ې پد يد د‎ XC 3E COE OC 3E بد ين د به‎ CÓ COE COE OE C e ECCE Ke خپ زی اچاب یپ د چغ ې ي چ يه د د ي د اد د دز د د د ز‎ 
[LAMBDA (IEXP ENV-I) 
(PROG (L OF R £D 
(SETQ L (EV (CAR IEXP) ENV-I?) 
(SETQ OF (EV (CADR BEXF) ENV-I)) 
(GETO R (EV (CADDR IEXP) ENV-I)} 
(RETURN (COND 
( (E ERRORCODE (QUOTE ERRORFREEB) > 
(COND 
( (EÜ (TYPE OF) (QUOTE closure)? 
(SETQ A (LIST عالالالا)‎ ۳9۵1 ( 
(CONS 1 L) 
(CONS 2 Π}}) 
(RPAPPLY OF ϐ)) 
(T (ERROR_HANDLER (QUOTE EXP_FUNC) 
(CADR 1۳۳*۳۲ 1) 


7 ها 
RHEE ER EEE‏ رت دز پا چ چ چ چچ چ چ چ ا چ چ چچ چچچ ج وج د چ چ عجو ج جي جز رې پو ELLA‏ 
args: PEAR ENV= F‏ 
calls: EV, TYFE, RFAFFLY, ERROR_HANDLER‏ 
called by: EV‏ 
binds: OF, ARG‏ 


usas free: ERRORCODE 
comments: Same as INMFIXÜF, except for prefix operators. 
ید بد بد ہد جد‎ κκ κκ κκ κκ εκ κκ εκανα καν κ بج بھد بد بد د د د بد د د د د د‎ 
LAMBDA (ΓΕΧΕ ΕΝΝ-Ε) 
(FROG (OF ARG) 
(SETU OP (EY (CAR C FEXEOUENV-P)) 
(SETER ARG (EV (CADR PEXFP? ENV-F)) 
(RETURN (COND 
((EQ ERRORCODE (@UOTE ERRORFREE> > 
(COND 
( (EÜ (TYPE OF) (QUOTE closure?) 
(RFAFPLY OP ARG} } 
) ۲ (ERROR_HANDLER 
(QUOTE EXP FUND) (CAR PEAFI) 


(RPAFFL Y 
3C3C 3€ JC C 3e JE JC JE JC جد جد جد جج‎ 3E 3c 3E AC JC JEJE HC OE JC JE JEJE JC جد‎ QE QE E QE QE AE JE OE JE AE QE 3E OE JEJE IE QE د جد جد ج مذ د جج جج‎ AE ج ج ج د جد‎ 
args: F, ñ (Evaluated form) 
calls: ATOM, ERROR_HANDLER, LENGTH, BIF_APFLY, CONS, 
DIFFERENCE, BINDARGS, AFFEND, LIST, EV 
Called by: INFIXOPF, FREFIXOP, ARRAY REDUCTION, FILTER, 
MAFIMG, MAFRF, MAÓPRP INV, MaP ISOMORPHISM, 
ΠΕΙ. REPEAT 
binds: FORMALS TEE, LE 
uses free: ERRORCODE 
comments: Determines if F is a LISF defined function or 
intensionally defined function. Evaluates the 
latter with the argument, A, and sends the 
former with argument to BIF_AFPLY. 
ΚΣ ΚΑ Suede ue cb هاچ‎ ER EERE EE BEY AEE SHEE REE REE RAPHE AMEE ER EEE κ 
LLS3MBDA (F ñ) 
(PROG (FORMALS LE EE)? 
(RETURN (COND 
( (EQ (LENGTH F) 2) 
(BIF_AFFLY F Ab) 
(T (SETE FORMALS (CADR F?) 
L COND 
L cCAaTOM FORMALS?) 
(SETQ EE (CONS (CONS FORMALS Δ) 
(CADDDR FJ 
(T (COND 
] لاع۳)‎ (DIFFERENCE (LENGTH A) 1) 
(LENGTH FORMALS?) 
(SETO LE (BINDARGS FORMALS A)} 
(SETO EE (AFFEND LE (CADDDR Fd 
(T (ERROR HANDLER (QUOTE FARA) 
(LIST (QUOTE (number of 
parameters in error] 
(COND 
( (EQ ERRORCODE (@U0QTE ERRORFREE) ) 
(EV (CADDR F) EE) 


(SB INDARGS 
SELES LEK ERE HERE LEER ERE AE RRR KER EERE ERE EREE RRS E PRES ER ER SEREE 
args: ېم‎ Mm 
calls: MAPSCAR 
called by: RFAPFLY 
AEA E E E a ee ee ee بې‎ 
LLAMEDA (F ñ) 
(MAPSCAR F (CBR A) 
(GUDTE (LAMBDA (X Y) (CONS xX (CDR YI) 


(BIF_APFLY 
ee eee ee چ جد یز یړ‎ 
args: F, ARG 
calis: MEME, NUMBERF, ZEROF, ATOM, NUMERIC SET, 
COERCE_TO_REL, TYPE, LENGTH, ERROR_HANDLER, 
πα ο Ευ DIFFERENCE, TIMES, QUOTIENT, 
TF, GREATERP, LEQ, GEQ, CONS, INTERSECTION, 
UNION, LDIFFERENCE, CART ٧۳٣١19, DO_SUESET, 
REGUAL, RNOT, MEM, RELATIVE PRODUCT, 
CONSTRUCTION, ARRAY_CONCATENATION, 
SEQ TO ARRAY, SELECT ALL, MAPRF, FORM_FAIR, 
HAF IMG, MAFPRF-INY, MAP_ISOMORFPHISM, FILTER, 
SUFERSCRIPT, FILE READ, CONVERSE, DOMAIN. 
RANGE, MAKE UNIQUE, REVERSE ARRAY, 
ARRAY TO SEQ, CURRY EXT, UNCURRY_EXT, HEAD, 
۲٢۶٢٣٢٦٦ ٣٦۳ SET, MAX SET, SEC TD REL, SORT, 
ET TO REL, LESSP 
called by: RFAFPLY 
binds: ELI UE 
muses free: ENV-F, FEXF, ERRORCODE, SETDOP, IEAF, NUMOF, 
ENV-I, BIFTAàG INFIX 
comments: Evaluates all Built-in LISP defined operatorcs. 
HEE ELE E ELE HEHE EEE EEE EEE ERE ز‎ κκ εκ εκανες 
CLAMBDA (F ARG) 
(FROG (L R DP) 
(SETQ OF (CADR Ε)) 
(RETURN (COND 
C (MEMES OP BIFTAG INFIX?) 
(COND 
( (AND (NOT (EQ (TYPE ARG) 
(QUOTE Erel}}) 
(NOT (ED (LENGTH ARG) 22)) 
(ERROR HANDLER 
(BUOTE BAD ARGS) ARG)) 
(T (SETU L {SEL ARG 1)) 
(SETQ R (SEL ARG 2)) 
(COND 
[L (¿ED OF (RUOTE reduction?) 
(COND 
(KEL (TYPE L) 
(QUOTE closure?) 
(LIST (QUOTE closures)? 
(QUOTE FA) 
(LIST (QUOTE reduce) 
(QUOTE FA? 
(QUOTE by) 
E 
(QUDTE from) 
R) ENV-I») 


1 7 


(T (ERROR, HANDLER 
(QUOTE EXP_FUNC) 
(CAR ARG] 
[ (MEME DP NUMOP) 
(COND 
C (AND (NUMBERF L) 
(NUMBERF  ( 
(COND 
( (ED DF (RUOTE +?) 
(FLUS L R)) 
( (ED OF (QUOTE -})? 
(DIFFERENCE L ER)? 
((EQ OF (BUOTE #¥}} 
(TIMES L R)? 
C (EQ DF (QUDTE /)) 
(COND 
((ZEROP R) 
(ERROR_HANDLER 
(QUOTE ZERD DIV) 
(CADDR IEXF3)2) 
(T (QUOTIENT L Ri 
((ER OF 5 ΟΤΕ =?) 
(Tr L ESSA CTR na 
) )۳ DP (QUOTE ο) 
(TF (GREATERF L R22) 
(CEQ OP (QUOTE <=?) 
(TF (LED L R))) 
(CEQ OF (RUOTE ;Ξ)) 
(TF (SED L F))) 
(T (QUOTE impossible] 
(T (ERROR_HANDLER 
(RUOTE EXP NUM) 
(LIST (CAR IEAP) 
(QUOTE or) 
(CADDR IEXF I 
C(EQ GF (QUOTE oar?) 
(COND 
((OR (ED L (QUOTE true)? 
(EQ R (QUOTE true)?}) 
(QUOTE true)? 
(T (QUOTE false] 
[ (ED OF (CQOUDTE and)) 
(COND 
(CAND (EG L (QUOTE true)) 
(EQ R (QUOTE truss) 3 
(QUOTE true) > 
(T (QUOTE false] 
C(MEMB OF SETOP) 
(COND 
[CAND (MEMBE (TYFE L) 
(QUOTE (Eset Erel)?)) 


(MEMB (TYPE R) 
(QUOTE (Eset Erell 


(COND 
[ (EQ DP (QUOTE union?) 
(COND 
LIOOR (EQ (CAR L) 
(DUGTE E==t)) 
(EQ (CAR R) 
(QUOTE Eset) )} 
(CONS (QUOTE Eset) 
(UNION (CDF L) 
(CBR R] 
(T (CONS (QUOTE Erel) 
(UNION (CDR L) 
(CDR R] 
C(EQ OF (DLOTE intersection)? ( 
(COND 


L (GR (EQ (CAR L) 
(QUOTE Erel)} 
(Eù (CAR R) 
(QUOTE Erel)}> 
(CONS (GUOTE Erel} 
(INTERSECTION (CDR L 
(EDF R] 
(T (CONS (QUOTE ΕΞΕΤ) 
(INTERSECTION (CDR L) 
(CDR RI 
[ (ED CF (QUOTE setdift)} 
(COND 
CEQ (CAF L) 
(QUOTE Eset?) 
(CONS (QUOTE Eset) 
(POIFFERENCE (CDR L) 
(CDR £] 
(T (CONS (QUQTE Erel) 
(ODIFEFERENCE (CDR L) 
(CBR ΠΠ 
C(EQ OF (QUDTE cart)) 
(CONS (QUOTE Erel) 
(CART _FROD 
(CDR L) 
(CDR FJ 
[L (EQ OF (QUOTE 'subset)) 
(COND 
((GREATERF (LENGTH زا‎ 
(LENGTH R?) 
(QUOTE false?) 
(T (DO SUBSET 
(CDR L) 
(CDR RI 


` 
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L (EQ OP (QUOTE subset)) 
` CCOND 
¿i (GEQ ¿(LENGTH L) 
(LENGTH R) ) 
(QUÜTE false)? 
(T (DO SUESET 
(CDR L) 
(CDR R] 
(T (QUOTE impossiblel 
(T (ERROR_HANDLER 
(QUOTE EXP SET) 
(LIST (CAR IEXP) 
(QUOTE or) 
(CODDR IEXF] 
( (EQ OF (QUOTE =)) 
(REQUAL LR ENYV-TI)) 
((EQ OF (QUOTE <=)? 
(RNOT (REQUAL L R ENV-I2)? 
i (EQ DODF (QUOTE member) ) 
(MEM L ( ( 
((EQ OF (QUOTE nomem) ) 
(ANOT (MEM ا‎ ۲ ( 
CL (MEMB OF 
(QUOTE (X1 construction 
concatenation?2)2) 
(COERCE - TO σι انا‎ 
(COERCE VO ٢٢ R) 
(COND 
((EQ ERRORCODE (@UDTE ERRORFREE? ? 
(COND 
Lr (EQ DF (QUOTE ((؛م‎ 
(CONS (QUOTE Erel } 
(RELATIVE PRODUCT 
(CDR L.) 
(CDR R3 
i (ER OP (RUOTE construction?) 
(CONSTRUCTION L R?) 
((EQ OF (QUOTE concatenation?) 
(ARRAY CONCATENATICN 
L R] 
L (MEMB OF (QUOTE (sel seq to array 
select all rel prod?) ز‎ 
(COERCE το REL L? 
(COND 
((EQ ERRORCODE (QUOTE ERRORFREE) ۶ 
(COND 
i (EQ OP. (QUOTE sel)> 
(SEL L (٧۸ ( 
((EQ OP (QUOTE seq to_array?}) 
(SEQ TO_ARRAY L R)) 
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(CEQ OP (QUOTE select (د(الت‎ 
) 5١ ٣ ١ Ale R (CDR ۸سا‎ ۶ 
((EQ OP (QUOTE rel prod): 
(COND 
[L (EQ (TYFE FR) 
(QUDTE closure?) 
(CONS (QUOTE Erel)? 
(MAFRF R (CDR L] 
(T (ERROR_HANDLER 
(QUOTE EXP_FUNC) RJ 
((EQ OF (DUOTE :)) 
(FORM PAIR L F)) 
C(EQ OF (QUOTE img?) 
(COND 
(CAND (EQ (TYPE L}? 
(QUOTE closure)? 
(MEMB (TYFE R? 
(QUOTE (Eset Eros] j 
(CONS (QUOTE Eset} 
(MAPIMG L (CDR R} 
ENY—-I))) 
(T (COND 
ΓΕ L) 
(QUOTE closures)? 
(ERROR_HANDLER 
(OUUTE EXP SETS 
(CADDR IEXF) رر‎ 
(T (ERROR_HANDLER 
(QUOTE EXP_FUNC) 
(CAR IEXF] 
C (MEME OF (GUOTE (rel _prod_inv 
isomorphism) ))- 
(COERCE TO REL R?) 
(COND 
L (AND (EQ (TYFE L) 
(QUOTE closure?) } 
(EQ ERRORCODE 
(QUOTE ERRORFREE) )3 
(COND 
L (EQ OF (BUOTE rel_prod_inv?} 
(CONS (QUOTE Erel) 
(MAPRP_INV L 
(CDR R1 
( (EQ OP (QUOTE isomorphism?) 
(CONS (QUOTE Erel> 
(HAP ISOMORPHISM 
L (CDR RI 
(T (COND 
((NOT (EG (TYPE L2 
(QUOTE closura?9?) 
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(ERROR_HANDLER 
(QUDTE EXP FUNC? LU] 
[ (ED OP (QUOTE filter)) 
(COND 
(CAND (EQ (TYFE L) 
(QUOTE closure) )} 
(MEMB (TYFE R; 
(QUOTE (Eset Erel] 
(CONS (CAR R) 
(FILTER L (CDR ΕΠ) 
ENV—-I))) 
tT (COND 
( (EÜ (TYFE L) 
(QUOTE closure?) 
(ERROR_HANDLER 
(QUOTE EXP SÈT. 
(CADDR IEXP))) 
(T (ERROR_HANDLER 
(QUOTE EXF_BOOL) 
(CAR ۳ ۳ [ 
((EQ OF (QUOTE superscript)? 
(SUPERSCRIPT L RI 
(T (COND 
( (ED OF (RUOTE not)) 
(ΠΝΏΤ ARG) ) 
(CEG OF (QUOTE file?) 
(FILE READ ARG)) 
r(ED OP (QUOTE unitzet)) 
(COND 
(OR (ATOM ARG) (STRINGF ARG) 
(LIST (QUOTE Eset) ARG?) 
(T (COND 
((MEMB {CAR ARG) 
(QUOTE (Eset Ere}! closures] }} 
(LIST (QUOTE Eset?) ARGH) 
(T (LIST (QUOTE Erei? ARGI 
[C (MEME OP (QUDTE (unitset sols 
elementselect? 
(COND 
[L (MEMB (TYFE ARG? 
(QUOTE (Eset Erel)}:? 


(COND 
Γεω OF (QUOTE unitset_sealect)) 
(COND 
( (EQ (LENGTH (CDR ARG)? 
1) 


(CADR ARG) ) 

(T (ERROR_HANDLER 
(QUOTE EXF_UNITSET) 
(CADR PEXP] 


( (EQ OF (QUOTE elementselect?? 
) COND 
( (NULL (CDR ARD)? 
(ERROR_HANDLER 
(QUOTE EXF_NEMPTY? 
(CADR PEXP))) 
(T (CADR ARG] 
(T (ERROR_HANDLER 
(OQVOTE EAP. SET) 
(CADR PEXF] 
C(EQ OP (QUOTE cardinality?) 
(COND 
((MEMB (TYPE ARG) 
(QUOTE (Eset Erel)}: 
(LENGTH (CDR ARG) )} 
(T (ERROR_HANDLER 
(QUOTE EXP SET) 
(CADR FEXF] 

C (MEMB OF (QUOTE (converse rng dom 
array_to_seq run 
reverse array 

'" curry ext 
uncurmy ext)? 
(COERCE TO_REL ARD) 
(COND 
((EQ ERRORCODE (QUOTE ERRORFREE: ( 
(COND 
((EQ OF (QUDTE converse)? 
(CONVERSE ARG?) } 
( (EQ OF (QUOTE dom?) 
(DOMAIN ARG) >) 
( (EQ OF (QUOTE rna)? 
(RANGE ARG) ) 
Γ (Επ ΟΕ (QUOTE run?) 
(COND 
(CEQ CLENGTH (MAKE _UNT@UE 
(CDR (RANGE ARG) 
NIL ENV-Fd 
(LENGTH (CDR (RANGE ARGI 
(QUOTE true?) 
(T (QUOTE false] 
((EZG DP (ΠΟΌΤΕ reverse array?) 
(REVERSE ARRAY ARG) > 
( (EQ DP (BUDTE array to sea)? 
(ARRAY TO SEQ ARG?)) 
((Εω OP (QUOTE curry_ext)) 
(CURRY EXT AFG) ) 
( (EQ OP (QUOTE uncurry ext)? 
C(UNCURRY_EXT ARGI 
( (EQ OF. (QUOTE Hd?) 
(HEAD ARG) } 
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((E2 DP (QUOTE τι )) 
(TAIL ARG)) 
C(MEMB OF (QUOTE (min max unique set?2)) 
(COND 
[EO (TYPE ARG) 
(QUOTE Eset) ) 
(COND 
( (EQ OF (QUOTE min)) 
(MIN SET ARG)) 
( (EQ OF (QUDTE max)) 
(MAX _ SET ARG) 
( (EQ OP (QUOTE unique set)? 
(MAKE UNIQUE (CDR ARG) 
MIL EHNHV-P31 
(T (ERROR_HANDLER 
(QUDTE EXP SET) ARGi 
((MEMB OP (QUOTE (rsort sort))) 
(COND 
[f (NUMERIC SET (CDR ARG? 3 
(COND 
۱ لاع)‎ OF (QUOTE rsort)) 
` (CONS (QUOTE Erel) 
(SEQ TO_REL 
(SORT (CDR ARD} 
(QUOTE LESSEa 
(T (CONS (QUOTE Erel; 
(LIST تا‎ REE 
(SORT (CDR ARG} 
(QUOTE LESSEE 
(T (ERROR_HANDLER 
(QUOTE EXF_NSET) ARG) 


(ARRAY CONCATENAT ION 
لا د چ لاي ول و لا پر زا جر ہد و جر وج چا جر جر جد یرای کي ليا یل یز یاډ بدا یي جد جد د ج جد جد چ ج د چ د جد جد د جد چ جو‎ E جج چ ېی چ‎ E 
args: ei, AS (Tagged relations) 
calis: NUMERIC SET, DOMAIN, REVERSE, AFPEND, MAFCAR, 
FLUS, CONS, ERFRGR_ HANDLER, LIST 
Called by: BIF_APFLY 
binds: INDEX, ۸ 
comments: Given two arrays (relation with numeric index), 
Ai and A2, returns a single array which is the 
concatenation of Al to Az. 
EEE RE ERE ELK ELE KK EE KE RE KLE KE ERE K چ جد چ چ چ چ چ چ چ د جد جد جد چڊ چڊ چ چ جد جد جد جد جد چ چ د چ‎ 
[LAMBDA CAL AS) 
(COND 
CLAND (NUMERIC SET (CDR (DOMAIN Al1))) 
(NUMERIC SET (CDR (DOMAIN A21 
(PROG (INDEX) 
(SETQ INDEX (CAAR (REVERSE Al)?}) 


(RETURN (APPEND A1 (MAPCAR (CDR A2) 
(QUOTE (LAMBDA (X) (SETQ INDEX (PLUS 1 INDEX)) 
(CONS INDEX (CDR XJ 
(T (ERROR_HANDLER 
(QUOTE EXP. ARRAY) 
(LIST A1 (QUOTE or) A21) 


(ARRAY REDUCTION 
HERR EEL LE LLL EO ید دج‎ C 3£ 3 IE ده جر مود د چ‎ COE E Ee پر ې‎ ee Re ee eee = x 
args: EXP, EA 
calls: COERCE TO REL, MAPCAR, ERROR HANDLER, EV, 
RANGE, RFAPPLY, LIST, CONS 
called by: EV SPECIAL CASES 


binds: ARRAY, FNC, START, ARGS, ANS, X 
comments: Given an expression, EXF, of the 455: 
: "reduce Array by Function from Startin Foint" 


created by the "red" operator, returns a values 
by extracting the function, starting point and 
array, to reduce the values in the array by 
repeated applications of the function. 
3 دبد دبع ا ید ہز د ري د پد‎ E AE AEE E E AE AE AE E E E ہہ چ ید ہز ھچ ید و ید ہز ہز ید جج‎ IEEE چ جد چ چ د چ د د چ چ چ ہز‎ 
CLAMBDA (EXP EA) 
(FROG (ARRAY FNC START ARGS ANS) 
(SETO ARRAY (EY (CADR EXP?) EA)) 
(COND 
( (COERCE _TO_REL ARRAY) 
(SETQ FNC (CADDDR EXP) ) 
(SET START (CADDDR (CDDR EXP))) 
(SETQ ARGS (CDR (RANGE ARRAY) )) 
(SETO ANS START) 
CMAPCAR ARGS (QUOTE (LAMBDA (X) 
(GETE ANS (CRFAPPLY FNC (LIST (QUOTE Erel} 
(CONS 1 ANS) 
(EONS 2 X] 
(RETURN ANS) ) 
(T (ERROR_HANDLER (QUOTE EXP_REL) ARRAY: 


(ARRAY TO SEG 
د د ید دی لہ نے ہد ید ہز از‎ 3E AC 9C AC C AC AC JC JE AC AE H چ د‎ AE لبق ہہ‎ C e C E H XL OE د‎ XR د‎ S XR XE نا سيف‎ X 


args: ARRAY (Tagged relation} 
calls: SET, RANGE, CONS, REVERSE 
called by: ۳۲۲۳ OFFLY 

hinds: 51, 5 GEL 


comments: Converts the values of an array into a sequence 
هد ج‎ JC 3E Je 3E JE OE OE GE AE OE E ACE EC OEC OE OEC OCC OE EE EE OC EAE QE JEDE JE OE OE OE OE OE OE چ د ہاج ہز ید ہی جن جج ہد چ چ ہی‎ 
[LAMBDA (ARRAY) 
Ἔν οι 52 5E) 
(SET@ Si (CDR (RANGE ARRAY) )) 
‘SEITE S2 (CDR S12) 
(SET SEQ NIL) 


þu 
η 
un 


LOOF (COND 
L (NULL S2) 
(RETURN (CONS (QUOTE Erel) (REVERSE SEQ] 
(T (SETQ SEQ (CONS (CONS (CAR S51) (CAR S2)) SEG? } 
(SETQ S51 608+ 
(SETO 52 (EDR S ο) 


(SO 07 
(CART_PROD 
3CJC JC 3c 3C 3e JC 3C OE 9E Je GE AE OE 3E JE E E OE 3C JC OE OE OE 3E JE KE JE IE JE JE JE OE JEJE JE JEJE JC JE JC JEDE IE OE EIE OE JE OE EIE OC OE EXE د جد چ‎ E 
args: à, B (Untagged sets)? 
calls: APPEND, MAPCAR, CONS, CART_FROD 
called by: BIF_APPLY, CART_FROD 
binds: X 


ج چڊ چ ج د چ د د جد د د د د د ج د ہی JC JC JC OE OC‏ د جد د ہی ہز ہر ور ΕΚΕ ΚΚ ΚΚΕ E e E E E E A E A E‏ د چ چ جج جد جج ہہ 


CLAMBDA (A B) 
{COND 
((MULL A) NIL) 
(T (APFEND [MAFCAR B (QUOTE (LAMBDA (X) 
(CONS (CAR A) X] 
(CART_PROD {CDR A} EJ} 


(CONSTRUCTION 
نج یچ‎ XC 3L ود و‎ κκ κ κακο ο یت‎ aC d 30 30 3 ج جد جد‎ 9600 3 X 
args: ΤΕΙ 1. TELE (Tagged relations) 
calls: CONS, MAFCAR, INTERSECTION, DOMAIN, LIST, SEL 
called by: BIF AFFLY 
Hinds: X 
comments: Given two tables, returns a table which relates 
every common domain element of TBL1 and TELZ ta 
a list containing the range element from each 
table, associated with the domain element. 
3C JC 3b 3 3E Je 3e مزر ې لر ې ې ور یا یل‎ COE 3e JE DC IE OC OE IC JE JE خو ېد ر‎ 5 E JC JE چ‎ ORE COE ید‎ EAE IE دد لاج دد د ۷( ز لد یز‎ 
[LAMBDA (ΤΕΙ 1 TBL2) 
(CONS (QUOTE Erel)? 
(MAFCAR (CDR (INTERSECTION (DOMAIN TBL1) 
(DOMAIN TBL2?2)2) 
(QUOTE (LAMBDA (OX? (CONS X (LIST (BUOTE Erel) 
(CONS 1 (SEL TEL1 E) 
(CONS 2 (SEL TELE X1) 
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(CONVERSE 
JCAC 3E JC JE JEJE OE JE 3C OE JE JE JC 3E OE CAE OE JE EE COE OE COE OE JE OE E AE OE OE OE EE جب چ چ ج چ چ چ ج چ ج چ چ ج چ اي یل لال یل‎ E 


args: R (Tagged relation? 
calls: CONS, REVERSE, MAPCAR 
called by: HIF_APFLY, SUPERSCRIPT 
binds: A 


comments: Given a relation, HR, returns a relation with 
the range and domain inverted. 
HERE HC ACE چ چ چ چ چ پو یر بدا پر ېزاو چو‎ ICE چ ب ج وج چ چچ چچ چچ چچچ چچ زی ڑج زج چ چ‎ 
[LAMBDA (R) 
(CONS (CAR R) 
(REVERSE (MAPCAR (CDR R) 
(QUOTE (LAMBDA (X) 
(CONS (CDR X) 
(CAR Xl) 


(CURRY EXT 
ود وچ چ د چ ج و جج جر‎ lll جح جح ہس جس کت تج یہ ہج سید عو دز سز چو یہ سج ید سد بی ید یز وہ ج یڑ ہد ید و و‎ 
args: TEL (Tagged relation?) 
calls: BINARY LIST, MAPLAR, CONS, REVERSE, LÜDELIP, 
LCURRY ELEMENT, LDIFFERENCE 
called by: BIF AFFPFLY 
binds: τος ۳۱٢٣ کن ثا و‎ م٢۷‎ 5٢ REY. SUBIBL, X 
comments: Given a table which represents an extensional 
uncurried function, 1۰ 2۰ و‎ every domain element 
is a binary list and every range element is the 
result of the represented function on the argu- 
ments in the list, returns a table which repre- 
sents the curried version of the original ΤΕ. 
د جد جز جد جج م‎ E د چ کد د چ ید ب چچ مھ چ‎ E e ن چ د چ جد چ ج‎ E چ چ د ع د ج چ ج د جد چ ج مھ چ ج ج د چ چو جد چ د جج‎ EO EE 
Li.AMBDA (TEL) 
(FROS {(FTEL TAG FIRST KEY ΕΤΗ CTRL} 
(SETQ TAG (CAR TBL)) 
(SET FTBL (CDR THEY) 
(SET@ CTBL NIL) 
LOOP TCOND 
t (NULL ΕΤΗ) 
(RETURN (CONS TAG (REVERSE CTEL ] 
(T (SETO FIRST (CARCFTBE) ) 
(COND 
( (BINARY_LIST 
(CAR FIRST)? 
(SETO KEY (LOOKUP 1 (CAR FIRST))) 
(SETQ SUBTEL NIL) 
C[MAFCAR FTBL (QUOTE (LAMBDA (X) 
(COND 
CC(HINARY_ LIST (CAR X)) 
(COND 
( (EQ (CDADAR X) EEY) 
(SET@ SUBTBL (CONS X SUBTBLI 
(T (GO EXITI 


I 


(SETQ CTBL (CONS (CURRY_ELEMENT 
KEY SUENmBL) ΕΤΕ 
(SETG PTBL (LDIFFERENCE FTBL SURTBL))) 
(T (GO EXIT ! 
(GO LOOP) 
ΕΣ 


(DOMAIN 
3X 3C 3C JC AC 4C 3E Je Je AE OE Je E OE IE AC OE OE OE ICE چ‎ AE AE OEC OE Je IE OE CIE ICE OE OE OE AE CA OE die ICE OE COE چ چ چ چ و ہی چ چ ج ا چ‎ 
args: R (Tagged relation) 
calls: CONS, MAFCAR, CAR 
called by: BIF AFPLY, ARRAY CONCATENATIDN, CONSTRUCTIOM, 
REFLEXIVE TRANSITIVE CLOSURE, REVERSE ARRAY, 
SEQ TO ARRAY 
comments: Returns a tagged set of the left members of the 
j relation, R. 
ج چ چ ج چاچ وچ چ چ چ چ ھچ چ چ چ و چ چ چ چ وه چ چ چ چا ويچ چچچ ج وة ججج وچ ووج جج جو وو جج عجعج وجوه‎ 
[LAMBDA (R) 
(CONS (QUOTE Eset) (iMAPCAR (CDR R) (QU0TE CARI} 


(DO SUBSET 
یس سے‎ É چ ع سے چ جن سید ہی چ چ چ چ چ چ ي چ چ چ چچ چو ددد ګزځ دو رز هي اد اج اد و ې ېز ې‎ 
args: Si, 52 (Untagged relation or set) 
calls: ع۴‎ ۶566۰۰ ٢ 
called by: BIF_G@PFLY, DO_SUBSET, REQUAL 
Como E m Z E جخ چ چ چ چ ج چ و چ چ چ چ ع ج ا چ چ چ چچ چ چچ چچچ چ و ووچ وچ چ جا چچ وچ چو چ بب پا چا چا‎ 
LLAMBDA {51 S2) 
(COND 
(NULL 51} (QUOTE true) 
( (MEMBER (CAR S51) 52) 
(DO SUESET (CDR Si) So) 
(T (QUOTE false] 


(FILE READ 
چ چ چ چ چ ج چ چ چ چ چ چ چ چ چ چ چ چو چ چچ چ ج یچ چ چ چ چ چ چ چچچ ھچ وچ ج چچچ ج چچچ ہو چرم‎ E 
args: MAME (Unix filename) 
calls: WRITE, INFILE, TERFRI, CLOSEALL, ۱ ΤΟΠ, 
INFILEF, READ 
called oy: BIF_APFLY 
Binds: INPUT 
Tomments: Reads from a file, a previously stored RPL data 
eisement. 
لزع چ چ چو غ چ چو چ چ چ چ ع چ چ چ ھچ چ چ چ چ و ی چ چ چچچ چو چ چ چ چ ج ج جو جوج يججج وج‎ OR ERE چ چ سو‎ 
TLAMBDA (FNAME) 
(SETE FNAME (MEATOM FNAME) ) 
‘FROG (CINFUT) 
(SETI INPUT 4 1۳۳ ۲۱۲-۳۳۳ FNAME) ) 
(COND 
€ (NULL INPUT) 
(WRITE (QUOTE (file not found?)) 
(GO EXIT))) 


igs 


(INFILE INFUT) 

(RETURN (READ INPUT?) 
EXIT (TERPRI) 

(CLOSEALL NILJ) 


(FILE_WRITE 
SE EE EE EERE KERR ERE RE چ چ چ ج چ‎ 


args: FNAME (Unix filename) 
EXE (Any RFL expression)? 
calls: OUTFILE, FRINT, CLOSEALL, MEATOM, OUTFILEFP 
called by: EXECUTE 
binds: OUTPUT 


comments: writes the evaluated EXP to the file FNAME. 
ج ا جد چ د د جد د پد د د جد جد جد جد ج د جج جج جد جد جد جد جد جد جد جد چڊ جد جد جد جد جذ د جد جد د جد جد د چڊ جد چڊ جد چ جد جد چڊ جد جد چڊ د د جد د د د د ج ي‎ 
[LAMBDA (FNAME EXP) 
° (SETER FNAME (MEATOM FNAME) ) 
(FROG (OUTPUT) 

(SETQ DOUTFUT (QUTFILEF FNAHME?) 
(QUTFILE QUTPUT) 
(FRINT EXF QLUTPUT? 
{(CLOSERALL NIL J]? 


(FILTER 
X 33e 3 ہر ہر ا‎ dC 3E JC OE Ce ہز‎ ee ee ee x یز جج‎ E ج‎ 
args: P (RFL boolean predicate, evaluated? 
سا‎ (Untagged set or relation? 
calls: MAPCSR, RFAFPPLY, CONS, REVERSE 
called by: BIF AFFLY 
binds: FSET, X, ARG 


usag fre 
comments 


e: ERRORCODE, FILTER ON 
: Returns S or a subset of 5, based upon the 
result of applying the boolean predicates, F, to 
each element of 5. 
چیا يابدا هداد‎ XXE COE OE OEC GE ہد ہد ہد‎ E JC Qe AC E OC JC OC سد‎ COE یز ېی‎ JC C COE JE COE OE JE EO OC IC AER JOE COE EE ORAE ج چ ج جد‎ 
Γι ΑΠΌ (F S) 
(FROGS (FSET ARG) 
(SETG ESET NIL} 
(SET@ FILTER_ON T)? 
ΓΜΒΞΌΩΗ 5 (QUOTE (LAMBDA (X) 
[COND 
((EQ {RFAFPLY F X) (QUDTE true) 
(SETS FSET (CONS X FSELI 
(SET@Q ERRORCODE (GUOTE ERRORFREE ل‎ 
(SETQ FILTER_ON NIL) 
(RETURN (REVERSE FSET) 


Do 


(FNC_BODY :‏ 
E‏ ا ج ج ج د ی ن E‏ ج د د ج ج ج ج ج د ج د OE IC E‏ د د ج ج ا د ج جج د جج جج جج ج A 33 AE 3E 3E JE 3E C3 C e € Jc Je Je Je Je DEC OIE OE 3E‏ 


args: N 

calls: LIST; DIFFERENCE 
called By: REPEAT COMPOSITION 
binds: ANS 


comments: An auxiliary function to REFEAT COMPOSITIONM 
which creates the physical closure with WN 
compositions of a function f. 
وو با‎ ee ee € 
CLAMBDA (NN) 
(FROG (ANS) 
(SET@ ANS (LIST (QUOTE f) (QUOTE x))) 
LOOF (COND : 
( (EQ N OD) (RETURN ANS)) 
(T (SETQ ANS (LIST (QUOTE f? ANS)) 
(SETQ N (DIFFERENCE N 1)) 
(GO LOOP) 


(FORM PAIR 

SPEER EERE ERLE EE EL EEE EAE EEE EEE EAE EERE EERE EEE REE EEE EE EERE 
args: X (An elementary pair) 
calls: ERROR_HANDLER 
called by: BIF_AFPLY 

چ چ چ جد چ چ د چ چ چ بیز پد ېز بد ہر رٹ ج ج جد د چ پو نہر و پو پر پر جد ن ہر پر پد پر بد پد یز لا و د د ج جد یز يي ج ج ج جد جد ج جد د بج چ چ جج ج ج 
CLAMBDA (X Y) (CONS X YI)‏ 


(HEAD 

KER HH ESKER EEE EHH ERE HEHEHE ERE HEHE ERE REE REE EER EEE SEER SESS 
args: Χο )و‎ (Anything) 
calls: CONS 


called by: BIF APPLY 
3X Xe 3-3 JC JC ACC OCA 3E JC OC OC COE IO GERE OE EAE OC ACIE OE ICE GE EHE OEC OE OE OE OCC OCC OE OE ERREUR EIER EGER XE 
CLAMBDA (X) 
(COND 
( (AND (LISTF X) (NOT (NULL X200 (CAR X20) 
(T (ERROR. HANDLER (QUOTE EXP PAIR) X1) 


(HAF IMG 
پر یا دج سز ہز سز‎ A 3 ید‎ E E E د د جد جج د جد ب جد جد د مد ید زا ید هل جد د‎ E چڊ چ چ چ چ چ چب ج‎ RE E 
args: F (RFL function, evaluated form) 
o (Untagged set of relation) 
zalis: MAPCAR, RFAPFLY | 
called by: 1) APPLY 
binds: X 


comments: Returns an untagged set of results of applying 
F to each member of S. 
X د جد د د جد ج‎ 3C Je وت د چ چ ہز چ چ جد چ چ ہت جج چ ید جرج دج ید چ بد‎ a یز‎ E چ چ چ چ چ جد چ چ‎ 
[LAMBDA (F 3) | 
(MAPCAR S (QUOTE (LAMBDA (X) (RFAFFLY F X23) 


الات 


(MAPRP 
HEHE HHH HHH RE HHH HK RH KHE ERK EHH HER EHR ج چ چ جد چ خد د چ د چب جد چ د د د چ چ چ جد د د د د د د‎ 


args: - (RFL function, evaluated form) 
TEL (Untagged relation) 
calls: MAPCAR, CONS, RPAFPLY 
called by: BIF AFFLY 
binds: X 
comments:  Keturns an untagged table which relates each 


domain element of TBL to the result of applying 
F to the associated range element. 
پل ہہ ہہ ہج ہیں‎ Kee b بر ېز‎ OC Jb Je CHLOE OE e Je M Oe Oboe EIC RAE ERR AEE HEHE He 
[LAMBDA (F TBL) 
(MAFCAR TBL (QUOTE (LAMBDA (X) 
(CONS (CAR X) 
(RFAPPLY F (CDR X1) 


(MAPRE INV 


;:-.----.----------΄-“---ὋὉ,.,.,.,.,Ξ-ἒ-τ-τ-ἨΜἨἨἨἨἘἘ---; 
args: F (RPL function, evaluated form) 
۱ TBL (Untagged relation) 
calls: MAFCAR, CONS, RFAFPFFLY 
called by: BIF_AFPLY 
binds: x 
comments: Returns an untagged table which applys F Σο 


each domain element of TBL, and relates this 
result το the associated range element. 
£ X £ £ 3 چ ھا ج چ چ چ چ چ ی د چ چ چ د چ چ چ د چ چ د جد جد چ چ چ چ جد چ بد جد د چ چ چ چ کد د د د چ د بد د د د د جد چ د د هد جد دا‎ E 
[LAMBDA (F ΤΕΕ} 
(HAPCAR TBL (QUOTE (LAMBDA (X) 
(CONS (RPAPPLY F (CAR X?) 
(LDR XJ) 


(MAP ISOMORPHISM 
X 3 3e 3C 3e 3-3 د ج جد‎ GC د ی خد جد چ د جد د د جد چ چ ج چب د د چ جد جج چ جد د د چ چ جد د د چب د چ د د د د جد چچ د د د چب جد چ چ د جد جد جد د‎ 
args: F (RFL function, evaluated form? 
TEL (Untagged relation? 
MAFPCAR, CONS, RFAFFLY 
by: EIF_ñFFL Y 
A 
zi Returns an untagged table where each = 
the result of applying F to both the 1 
right member of each element in TBL. 
X 3C 3E COE COE EE EAE JC ECCE چ راھد پر ید‎ aE E OKE E چ چ چ‎ OX چ چ‎ 
Fi AMBDA (F TEL) 
(MAPCAR τοι (QUOTE (LAMEDA CX) 
(CONS (RFAFFLY F ‘CAR X22 
(RPAPPLY F (COR XJ? 


fL 
ا‎ 


n cw n r 
D el 

el E BS 
= نا‎ 

i wm 
Moos? C .. 
ېم‎ 

۱ 


12 
CL سود‎ 
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(MAX SET 
ELK جج جج چ ج چڊ چ د د د د ج ج جد ج د زج پر چ چڊ چ چڊ ہر ہی د ج ج ج ج ج د د د چا ہز د جد‎ E جد ج چ چب د چ جد د د چ د د د ج جج ج‎ 


args: S (Tagged numeric set) 

calls: NUMERIC SET, GREATERP, MAFCAR, T, ERROR_HANDLER 
called by: BIF APFLY 

binds: SET, MAX, X 


comments: Returns the maximum member of the set. 
چد چ چ بد‎ HE 2 ہر ہی پر جد‎ C C 2 90 20 AC 3E JC 3C 3C 23e 3C 3C 90 3C JC 3C 9C AC OE OEC ہز دز ہز ہز ہز‎ 9E 3C AC 3C AE 9C Ae 90 3C کن یز یز بد د ید ید‎ 


CLAMBDA (5) 
(PROG (MAX SET) 

(SEIR SET ېي‎ 70 

(COND 

) ۱۷۳۱۳۴۳۲۵۰ 7 6 ۹۶ 
(SETQ MAX (CAR SET)) 
CMAPCAR SET (QUOTE (LAMBDA (X) 

( COND 
((GREATERF د‎ MAX? 
(SETO MAX Xi 

(RETURN MAX))> 

(T (ERROR_HANDLER (QUOTE EAP_NSET>) SETI} 


(MEM 
σενα κανα 
args? A Anything: 
S (à tagged set or relation) 
calls: TYPE, MEMBER, ERROR_HANDLER 
called Dy: BIF AFFLY 
comments: Returns true if X is a member of 5. otherwise 
false is returned. 
لب تل ہز چب چ چ لل لر ېز چ چ چ چ چ چ چ چ چ چ چ چ و چ چ چ چ د ی چ چ چ چ چ چ چ چ چ ې ې چ خ چو چ د ې ه ېچ چب چ چ چا‎ Z ج چ چ ج ې چ‎ 
E کو‎ εν ο 
نب دي‎ 
LiMEMBER (TYFE 5) (QUOTE (Eset Erel))}) 
(COND 


{{ΕΩ (MEMBER X S) MIL) (QUOTE false)) 
(T (QUOTE ۶۰ 


(I (ERROR_HANDLER (QUOTE EXP SET) 951)‏ 
CHIN SET‏ 
ج چ د چ چ چ چد جد چ چ چ چ چن OMO OE EE XK SE SK‏ چ ېداد ېد ېز د ېز ېل پل ې يد بد بیز یز پر جد چ جد چ جد چ ج جد د جد داب بدا یز ORO Gb‏ 
args: S (Tagged numeric set;‏ 
NUMERIC SET, LESSP, MAFCAR, ERROR_HANDLER‏ ه8 
ca ας by: BIF_AFPFLY‏ 
binds SET, MIR κ‏ 


μμ... T Returns the minimum member of the set. 
هد د جد د جد جد يد‎ E τ JE CAE IE XE IE JE 3C OE ME OE OE XE EROR XL EE ERE E EE 
LLAMEDA (5) 
(FROG (MIN SET? 
(SETO SET (CDR 51) 
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(COND 
۲۳۱۱۱۳2۹ SET SET) 
(SETQ MIN (CAR SET)) 
CMAPCAR SET (QUOTE (LAMBDA (X) 
(COND 
((LES5F XA MIN 
(SETQ MIN X1 
(RETURN MIN)?) 
(T (ERROR_HANDLER (QU0TE EXP_NSET) SETI) 


(RANGE 

ee ees 
args: R (Tagged relation) 
calls: CONS, MAFCAR, CDR 


called by: BIF_APPLY, ARRAY_REDUCTION, ARRAY_TO_SEQ, 
2 REFLEXIVE TRANSITIVE CLOSURE, SED TO ARRAY 
comments: Returns a tagged set consisting of the right 
members of the relation, R. 
چ چ چچ و چ چ ھچ چ اه چ چ حو چ چ چو خوج چچ وه چ چو ي د و چ چ ج وع عي‎ ee eee اح سح‎ 
CLAMEDA (F) 
(CONS (QUOTE Eset) (MAPCAR (CDR R) (QUOTE CDRI) 


Pearle XIVE TRANSITIVE CLOSURE 
چ چ چ چ ج‎ A E a چ چ ج چ د چ ھا ج چ چ د د چ د مھ چ ج چ‎ E AE چ د مھ لھ چ د ع ج ت‎ E چا کے س س ی ا م م‎ 
args: F (Tagged relation) 
calls: UNION, DOMAIN, RANGE, CONS, MAPCAR, 
TRANSITIVE CLOSURE 
Galled Sy: SUPERSCRIPT 
binds: TAG, MEM, X 
ج ج جو‎ At AEG AC Ob CAE OE ICE JOE EO د د بد جد جد چ جد جد ج چ چن ج چ چ جد‎ JE C Ge JC جد چ جد چ د جد چ جج ید د چ جد چ د چ د چ د ج‎ GRE XE د ج‎ 
LLAMBDA (R) 
(FROG (TAG MEM) 
(SET TAG (CAR R)) 
ΓΞΕΤΩ MEM (UNION (CDR (DOMAIN Ε}} (CDR (RANGE RI 
(RETURN (CONS TAG 
(UNION CMAPCAR MEM (QUOTE (LAMBDA OX?» (CONS 
(CDR (TRANSITIVE CLOSURE Rd) 


1 
< 


1 
ας 
دلا‎ 
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(RELATIVE PRODUCT 
جد د د جد چ چ جد چ چ ج چو د د چ جد چ چب چ چو چ‎ E E د جد چچ‎ AE E چ کن‎ E AE AE جج‎ E د جد ج‎ E ج‎ E E چ ہز و زج ہز یز ا دز ہز ن ج چ ج چ چ ج‎ 


args: TBLi, TBL2 (Untagged relations) 

calls: AFFEND, MAPCAR, SELECT_ALL, CONS, RELATiVE FROÜDUCT 
called by: BIF_APPLY, RELATIVE_PRODUCT, TRANSITIVE CLOSURE 
binds: X 


comments: Returns an untagged table which takes the right 
member of each element in TBL1 and relates it 
to the set of all right members it is related 
to in TEL. 
له د‎ š < £ ي ې چب څې‎ GC ACE JE چ ج چو چچ جو چچچ وججه چو جج چچچ جهو هوجو ووچ چ و چچ ج چچچ‎ + 
CLAMBDA (TBL1 TBL2) 
(COND 
{NULL TBEL1) NIL) 
(T (APFFEND LMAÓPCAR (CDR (SELECT ALL 
(CDAR TBL1) TBL2)) 
(QUOTE (LAMBDA (xX) 
(CONS (CAAR TE 1) 
(RELATIVE FROBUCT (CDR TRBL1i) TELE]; 


«Ἢν 
bined 


(REPEAT COMPOSITION 
ESE SEHK SHES SR SEHR KE BEE EEE ESSE SHEERS EKER HERE 


args: FNC (RPL function, evaluated form) 
۳ (A positive integer) 
calls: CONS, LIST, _BDDY 
called by: SUPERSCRIFT 
binds: SE 
comments: A special case of the "sup" command. Given a 


function, FNC, and the number of times, F, FNC 
is to be composed with itself, returns a 
closure which represents the resulting function 
چ جج ع‎ dE چ دی ید و ہا ہی سی ہی په‎ ΚΕΚ ΚΚΕ ΚΑ چ چ چ ج چ چ چ ج چ چ چ جد چ چ چ چ چ چ چ چ چ چ چ‎ 
CLAMBDS {FNC F) 
(Eager et Se) 
(SET@ SE (CONS (CONS (QUOTE fF) FNC? 
(CABDDDR FNC))) 
(RETURN (LIST (GUOTE closure) 
(QUOTE x) 
(ΕΠΣ ΕΟΟ πο ΞΕ 


(REQUAL 
νεα κκ κακο κακο. EORR EE 
args: X, Y (Anything) 
calls: MEMBER, TYPE, UO. SUBSET ο πο کش‎ 


called by: BIF AFFLY 
a + ہہ ےر وت + د چ د‎ E AE AC Xe یہ بعد دہ رید نہ ہت ہہ ہے‎ AE C JR OEC ج یی د ج د چ د ہے چ جات یت ہہ دخ د د چ‎ 
CLAMEDA (X Y) 
(COND 
COLAND (MEMBER (TYPE X? (QUOTE (Eset Erel))3 
(MEMBER (TYFE Y? (QUOTE (Eset Erel] 
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(COND 
(CAND (EQ (DO SUBSET (CDR X) (CDR Y)) (QUOTE true)? 
(EQ -(DO_SUBSET (CDR Y) (CDR X)) (QUOTE trusi}} 
(QUOTE true)) 
(T (DUDTE false] 
(T (TF (EQUAL X YI) 


(REVERSE ARRAY 
چ ھچ چ چ چ چ چ چ چ ھچ چ چچ چ چ چچچ ھچ چ چ چ چچ و چو چ چ چ چ چ چ چ چ چ چچچ چ چ چچچ چچچ جج چچچ چچچ‎ 
args: LST (Tagged relation?) 
calls: SORT, DOMAIN, FLUS, REVERSE, CONS, MAPCAR, 
٣٣۲۴۲۴ ۲6 یر‎ 
Called by: ΕΙΓ ٢٢ 
binds: TAG, DOM, KE, X 
comments: Given an array, LST, returns an array with ths 
values in reverse order. 
ی رد ید ید مد چ بذ یز د چ چ چ چچچ چ چ چ چ چ جع‎ EK دپ‎ GE EY be AE ORG Gb OLOR چ چ ج و اہ ہہ ہو بد‎ = = = x == 
[LAMBDA (ST) 
FROG (TAG DOM F) 
(SETQ TAG (CAR LST)) 
(SETQ DOM (SORT (CDR (DOMAIN LST?) (QUOTE LESSF)}: 
(SET F (PLUS (CAR (REVERSE DOM)) (CAR DOM) )> 
(RETURN (CONS TAG 
(REVERSE (MAPCAR (CDR LST) 
(QUOTE (LAMBDA X) (CONS (DIFFERENCE FE (CAR A} 


(CDR X1) 
(ΠΝΌΤ 
پر یچ ی یچ ود‎ E COE IC IE 9e JC 3C Oe د د د ج جد ہر ود‎ IC 9e JE JC يی چا ہز ہد دج یل‎ ARERR REE ERE HERE ESE 
args: B (LISP boolean) 


called by: BIF_APPFLY 
comments: REL negation 
HELE HEEL چ وو چ چ ج ھج چچ چو چچ چ چ چ چ چو چ چ چ ھچ چ جد چ چ چ چ چ چ چ‎ e ج چا چ چ چ چ چ ع‎ 
[LAMBDA (BR) 
(COND 
i (EQ B (QUOTE true)) (QUOTE false)? 
(T (QUOTE trued) 


(RPL REFEAT 
At 3C 3E 3C AC 3C DC XC E DIE C AE AC AE 3C AE 9e 3E AE IE EXE DIE E OE IE فا‎ AE فا‎ AE AC 3E AE 3C IE ځوف فا فد‎ IE RE چ وہ و‎ 


args: i EXP NER 

calls: ERROR_HANDLER, EV, TYFE, RPAFFLY 
called by: EV SPECIAL CASES 

binds: ۳۳ Py Ay RESULT 


uses free: ERRORCODE 
comments: Given an expression of the form: 
"repeat (F X) until not P" 
Created by the "iter" operation, continues to 
apply F to X until the predicate F is true. 
چ چ چب چ ج‎ < 5 x< دابز بد بد چز عفد بد‎ GE X ΠΔ: ΓΘ EGER Ide GR RE یز بی یز‎ 
LLAMBDA (EXP ER) 
("ROG (F F X RESULT) 


(SETO F (EV (CAADR EXP? ER?) 

(SETQ P (EV (CAADDR (CDR EXP)) ER)) 
(SETQ X (BY (QURTE ΤΕΙ, 

(COND 


(CHOT ‘AND (ED ERRORCODE (QUOTE ERRORFREE? 3 
(EQ (TYFE Ε) (QUOTE closure?) 
(EQ (TYPE F) (RUOTE closure] 
CERROR_HANDLER (@GQUOTE EXFP_FUNC) 
(QUOTE (boolean predicate missing or 
bad function definition in iter)? 
(GO EXIT))) 
(SET RESULT (RFAPPLY F X2) 
LOOP (COND 
((EQ (RFAFFLY FP RESULT) (QUOTE true)) 
(SETO RESULT “RPAPEEY F IPE S SA D 
(50 LOOF) } ) 
(RETURN RESULT) 


EXIIT? 
(SEL 
ج چ چ جد چ ی چ چ چ ج چ د چ د جد ج یز د جد جد جد جد جد جد چد جد جد د د جد جد د جد چ د جد جب جد د یھ جد جد چ جد جد جد چ جد چ د یز ید د ج د د د جد ج د‎ 
args: TRL (Tagged relation? 
TOT (Anything) 
calls: SASSOC, ERROR_HANDLER, LIST 
called by: BIF _ AFFPLY, CONSTRUCTION 
بے قے‎ m ` 


sings: 
comments: Returns the right member of the firs 
occurrence of X as a left member. 
3G GG GRO SG Eee ACE Ge X OMO ہز ید‎ EN بد‎ KC چیہ‎ E C OEC AE JR EK e GC Gb PORRO Ee OE GR CAROLE e ER کد‎ 
A (TBL TGT) | 
D (X) 
(SETQ X (SASS0C TGT (CDR TEL))) 
(RETURN (COND 
( (EQ X NIL) (ERROR_HANDLER (GUDTE UBTE) 
(LIST TST (QUOTE (not found in?) 
TRL) )) 
(T (CDR X93 


“136 


(SEQ TO ARRAY 
جد جد جد جد‎ e a دا اپد پو صا اف مي‎ 3e 3c ید‎ e د د بد د دہ یہ یہ ید ود د د جد جد جد جد جد جد جد جد جد‎ - -ᾱ- ᾱ- زا ناف اَل ميو‎ 


args: SEQ (Tagged relation) 
INDEX (A positive integer) 
calls: LDIFFERENCE, DOMAIN, RANGE, EIST, CONS, LOCKUP, 


REVERSE; FLUS 
called by: ۳۲۳ AFFLY 


binds: FIRST, ARRAY 
comments: Converts a sequence to an array indexed trom 
INDEX. 


EERE RARE HSH ERE ERE HERS SEHR SHS EE SS‏ و بد یج رہ رج رد ہد 


CLAMEDA (SEQ INDEX) 
(PROG (FIRST ARRAY) 
LSETQ FIRST (CAR: (LDIFFERENCE (DOMAIN SEQ) 
(RANGE SEN] 


(SETQ ARRAY (LIST (CONS INDEX FIRST)?) 
۱۳۳۱/۳ ۱ تا ات‎ FIRST (COOKUF FIRST (CDR SEQ) )) 
(COND 


[ (ED FIRST NIL?) 
(RETURN (CONS (QUOTE Erel) (REVERSE ARRAY] 
(T (SETO INDEX (FLUS 1 INDEX?) 
(SET@ ARRAY (CONS (CONS INDEX FIRST: ARRAY) 
(GD LOOFI) 


2 


Επ ΙΤ 
چ چ چ د چ چ چ چ ھچ ج ی چ چ چ چ بی چ چ چ د جد چ یل جد د د جد چ چ د چ جد د د د جد د جد د جد جد جج د چ جد چن جد د جج ج چ چب د جد جد مد مد د‎ 


args: CFND (Tagged relation or RFL function? 
PUR t+, ΚΚ, or a positive integer? 
calls: EQUAL, NLMBERF, GREATERP, TYFE, 


REFLEXIVE TRANSITIVE CLOSURE, CONVERSE, 
TRANSITIVE CLOSURE, REPEAT _COMPOSITICN, 
ERROR_HANDLER 
98 6+٣ 
E IE XF 
nt Handles all cases of the operator "sup". 
چ چ چ چ چ چ چ وھ چ چ چ ج چ ھچ چ چچ چ ی چ چ ی چ چ چ د چ چ چ د چ چ چ ع ج چ چ چ چ چ چ چ چ چ چ ی جد چ چ چ ج‎ ERE EES 
LLAMEDA (DFND FHR) 
(COND 
( (AND (EQUAL FHR (QUOTE (closure +))) 
(EO (TYFE OFND) “(QUOTE Erel))3 
(TRANSITIVE CLOSURE DFND) ) 
( (AND (EQUAL ٣۷٣٣ (QUOTE (closure star)}) 
(EQ (TYFE OFND) (QUOTE Erel;})) 
(REFLEXIVE TRANSITIVE CLOSURE OFND)} 
( (MD (NUMBERP FWR) (CEG FPWR —-1) 
(EQ (TYFE OFND) (QUQTE Erel)))} 
(CONVERSE OFND)) 
( (GND (NUMBERF FWR) (GREATERF FWF ñ) 
(EQ (TYPE OFND) (DUDTE closure) )) 
CREFPEAT COMPOSITION OQFND FWR) ز‎ 
(T (ERROR HANDLER (GUDOTE BAD SYNTAX) IEXF1) 


1 
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(TAIL 
HEHEHE EKA KH HE HK EHH HE EHR EH EHH HELE EEK ER EERE EKER REESE κκ 
args: X (An elementary pair) | 
calls: ERROR_HANDLER 
called by: BIF_AFPLY 
EAEE REEE EEEE EEEE بیز پد‎ κα ج‎ 
[LAMBDA (X) 
(COND 
(CAND (LISTF X) (NOT (NULL X))) (CDR X)) 
(T (ERROR HANDLER (QUOTE EXP_FAIR) X1) 


(TRANSITIVE CLOSURE 
KEELE KKK REEL جد ج جد جد جد جد ج جد چ د چ چچ جد جد د چ‎ E جد چ‎ E چ جد چ چ چ چڊ چ چ چ چ جد چ د چ چ‎ AREER یز ہز یز‎ E 


args: ٢ (Tagged relation) 

calls: CONS, RELATIVE FRODUCT, UNION 

called by: REFLEAIVE TRANSITIVE Επομ σε SUFERSCRIFPT 
binds: TMF, ANS 


RHEE ER ERE KEKE RRR ERE REL RERER EREDAR ERR EER ESAS HEELS SS‏ سد و ہز یج چ د جد جد د 
CLAMBDA (R)‏ 
(FROG (TMF ANS)‏ 
(SET TMP (CORIR)‏ 
(SETO ANS (CDR ΠῚ}‏ 
0۳ 
(COND‏ 
(NULL TMP)‏ ( 
(RETURN {CONS (CAR R) ANS)))‏ 
(T (SETO TMP (FRELAñATIVE_FRDDUCT TMP (CDF ROSE‏ 
(SETQ ANS (UNION ANS THF} }‏ 
(GO RFLODP 1?‏ 


C(UNCURRY EXT 
SRLS ZKK LES RE HE EAE LAL EERE RLS ERE RRR DERE چ چ ج چ چ چ چ چ چ جد چ چ ی د د د چ ب د جد د د‎ 
arg: TBL (Tagged relation) 
alls: COERCE_TO_REL, CONS, APFEND, MAPCAR, 
LIST TO REL; ESI 
called by: BIF_AFFLY 
binds: TAG, FPTBL, FEY. SUBTITEL., UTBL; TA 
comments: The converse of CURRY EXT. 
د د د د د د د د د د جذ جد جد ج جد يد‎ N- 3 چ چ چ چ چ چ چ چ چ چ چ چ چ چ چ ت جد د د جد چ جد جد چ ید جج و ہز جا 3 چا دید جج ہرز ہز بد‎ 
[LAMBDA (TEL? 
(FROG (TAG FTBL ۲:۷۲ 5۱۳81 2 UTBL) 
(SETQ TAG (LAR TEL)) 
{(SETE FIEL (CDR ITEL?) 
LOGFECOND 
i (NULL PTBL) (RETURN (CONS TAG UTEL??) 
(T ۵ ۳ ۳ (CAAR ΕΤΕΙ 
(SETEC SUBTBL (CDAR FTBL)) 
(COND 
( (COERCE T0 δε ο σα 
(SETO SUBTEL ٣٣٦٣٦٣٤٦ 


ü 
Fr ul 


f1 
الا‎ so 
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CSET@ UTBL (APPEND UTBL 


(MAFCAR SUBTBL (QUOTE (LAMBDA (X) 
(CONS CCONS (QUOTE Erel) 


(LIST_TO_REL (LIST KEY 


(CAR X1 
(CDR X] 
(SETQ FTEL (CDF FTEL)2Y3) 
(GO LOGF I 
EXIT) 
(ALL FAIRS 
څې ې هل اچ ہر‎ ODE ES e e ede هد ې هې‎ WJ چاو‎ EE EER EE REE EES SERS SER RE Ee EEE 
args: 5 (Untagged set) 
calls: ` MEME, ALL_FAIRS 
called by: EY_SFECIAL_ CASES, LOERCE_TO_REL, ALL_PAIRS 
comments: 


A boolean utility function which determines if 
all the elements of S are elementary pairs. 
د چ کد د ب د د د د ید د د چ جد هد هد‎ AC OE AE OE OE ہز جد د چ جد‎ COE OE GOAL OR GE JE GO OE HE IO OR ج جد جد جد ج جد چ چد چ جد چ د د ید د ب‎ 
CLAMBDA (5) 
(COND 
t (NULL S) TO 
(CAND (LISTP (CAR 5)} 
(NOT (MEME (CAAR 5) 


(QUOTE (Eset Erel cl 
(ALL FAIRS (CDR S1) 


(BINARY LIST 


————————— —— E EE ER ERE ERASER EE ER EERES 
args: REL (Tagged relation) 
calls: COERCE_TO_REL, ERROR_HANDLER, LIST 
called by: CURRY_EXT 
comments: A boolean utility function which verifies that 
FEL is an RPL Binary list. 
چڊ د چ ید د جد ج‎ E EA د چ جد چچ د‎ REE AREER REE EERE ESSER REPRESSES SEO 
TLAMBDA (REL) 
(COND 
1 102-12٤2 TO REL FEL) 
(COND 
( (AND (EQ (CAADR REL) 1) 
(EQ (CAADDR REL) 23) T) 
(T (ERROR_HANDLER (QUOTE EAD ARS) 


۱۱۳ ات‎ ree ها‎ ۲ πας 3 Binary liist) 


7 و ہے 


(COERCE TD REL 
X aC Ac د‎ C AE AC AE 3C 39C6 90 909€ 9090 390909090 9E] 9C 3090 90909696 9090 90960 906396 96 96 90 JE 9C € 9C 9C جد جد و‎ 960 90960 JE کپ چا خی ج چ چ جد د جد د جد ج‎ 


args: S (Tagged relation?) 

calls: ALL FAIRS, TYPE, ERROR_HANDLER 

called by: ARRAY _ REDUCTION, UNCURRY_EXT, BINARY_LIST, 
RIF APPLY 

binds: STIPE 


comments: A utility function which changes the tags on a 
relation if S is a set and is Squivalent to a 
relation. 

ج چ چا ج د چچ چ موچ چچ اد جو وهجو ووه چ هچ ع چ وجوج ج ې ټ دی يې سي ok‏ جد 

[LAMBDA (5) 

{FROG (STYPE) 
(SET SI FE. (iver رو‎ 
(RETURN (COND 
((ED STYFE ΠΟΤῈ ΕΞΕΙ}}} 
((AND (EG STYPE (QUOTE Eset?) 
CALL PAIRS (CDR S))) 5) 
(T (ERROR HANDLER (QUOTE EXF_REL) 51) 


(CURRY ELEMENT 
ERE KME KHL RR ELE EAS ERE RHEE ERLE MLE KE چ ج چ چ ج جد جد چ د چ د د د د چ چ جد ج ج چ د ج د چ ج چچ‎ 
args: HEY (anything) 


TEL (Untagged relation) 
alls: CONS, REVERSE, MAFCAR, LOCGKLAF 
alled by: CURRY EXT 
inda: X 
omments: A auxiliary function to CURRY_EXT, which forms 
the curried element, given the FEY and the un- 
curried table, TEL. 
ہد یہ د چ چ بد د بود د ید و ید لد د مد جد د ج‎ E دہ ید ید ید ہز‎ AE چ جد چ جد ج د جد یز پل د جد جد جد جد جد جد چن جد جد جد ج د جد جد جد جد ج د جد د د د جد‎ 
LLAMEDA (KEY TRL) 
(CONS EEY (CONS (QUOTE Erel) 
(REVERSE (MAPCAR TEL (QUGTE (LAMBDA (X) 
(CONS (LOGRUOP 2 (EAR X)) (CPF X15 


(DISPLAY_ENV 
3X 3C 3C 3C JC 3C 3C 3c 3E JE JE JE OE E 3C JEDE OE OE د ج جد جد ج ج جج‎ OEIL Ie OE QE OE OE COE EIE ج ج جد جد د‎ E د‎ ECCE ICE IEEE EE E E 


args: FNC (An identifier or nothing) 
calls: و ماو‎ ٢1١٤ ۱٢٢٣٣۳٣٢٣ GET ENV 
called by: DISPLAY 

binds: ENY 


uses free: USERDEFS 
comments: Executes the "env" operator. Displays the 
entire environment if mo argument is given or 
the environment associated with the identifier, 
FNC. The environment is displayed in 
definitional form. 
COE COE 3E 3C 3C 3C EHE OC OE OC COE OE COE COE EE ICE COE OC OE OCC OE COE OC نبد پا بي د ید ید ید چ یتاپ ېا‎ GL OL OL GE AEGRO EO یا‎ EAE چ‎ 
[LAMBDA (FNC) 
(FROG (ENV) 
: (SETU ENY (GET ENV USERDEFS FNC)? 
LOOF (COND 
{ (NULL ENY) 
(SFACES 1) 
(WRITE (QUOTE (System Defined Function 
(TERPRI) ) 
(T (SPACES 1) 
(WRITE (CD6R ENV) ) 
( TERFRI) 
(SETQ ENY ((CDR ENV)) 
(GO LOOP) 


ا 


(GET ENV 
د د د جد ید چ د د‎ COO OE OC OC OE ېر ې ېل بد لن یل یز‎ OE ی و نز يز ې د څ و ې‎ RNE EE چ چ چا چ ج چ‎ 
args: L, FNAME | 
calls: MAFCAR 
-alled by: DISFLAY ENV 
Dinds: ENV, X 


comments: Ân auxiliary function to DISFLAY ENHV which 
returns only that portions ot L (USERDEFS) 
which are in the scope of FNAME. 
ce ee ee ee ee ee چ‎ 
CLAMBDA (L FNAME) 
(PROG (ENY) 
i COND 
{( (NULL FNAME) (RETURN L)? 
ieee = TO) ENS C) 
(MAPFCAR L (QUOTE (LAMBDA (xX) 
(COND 
( (ER (CAR X) FNAME) (RETURN ENVY?) 
(T (SETO ENY (CDR ENVI)? 


(LIST_TO_REL 
SE EEE EE چ چ فا چ‎ + 


args: D (Untagged LISP list) 

calls: GREATERF, PLUS, LENGTH, DIFFERENCE, CONS, 
MAPZCAR 

called by: EVSEDO, BIF APFLY, LUNCURRY EXT 

binds: Es E 


comments: Returns an untagged relation which represents 
the appropiate list, D. 
د چڊ د د د د د د د د د د د د ہد یی ید ہز‎ € 3€ JE AC 3E ACC AIC چ چ جد د چیھ ڑ جج بد د جد د جج چ چ ید ود بد ہد دہج یر ج‎ Ὰ 
[LAMBDA (D) 
(FROG (R C) 
(SETO R NIL) 
(SETQ C (PLUS (LENGTH DIS 
LOOF (SETQ C ο ۵۸ 
(COND 
((GREATERP C @) 
(SETQ ٣٦ (CONS C R)) 
(50 LODP)) 
(T R?) 
(RETURN (MAP2CAR R D (QUOTE (05 1) 


( ΟΕ η 
ې ان‎ a a a E E AE lI RRR EEE SRE ESSE 
args: TGT (Anything? 
TEL (Untagged relation? 
callz: بالات درد‎ 
called by: DEF BIMDIMG, DISFLAY, ERROR_HANDLER, EV, 
CURRY EXT, SEQ TO ARRAY, CURRY ELEMENT 
binds: E l 
comments: Returns the right member of TEL given the left 
member, TGT, if TST is found, else returns NIL. 


چ چ چ سز چ یلا یی جد جد جد جد د د ج د جد جد د جد چ جد جد جد د د چچ جد د جد د د د د جد د چ د جد جد چ جد د د جد د جد جد د د جد د د چ جد جد د جي 
[LAMBDA {ToT TEL)‏ 
(FROG (X)‏ 
(SETQ X (SASSUC TOT TEL);‏ 
(RETURN (COND‏ 
ال د AEC‏ 


ΠΗΤΕΡ 
UT DER: 


HJ 
خسم‎ 
HJ 


(MAKE UNIQUE 
چب جد جد جج جد چ جج جج جد جد جد د جد جد جد جد جد جد جد جد جد جد جد جد جد د جد جد جد جد جد چ جج جد جد جد جد جد د جد د جد جد ج جد جو د د‎ ERR ERR REESE 


args: INPUT (Untagged set or relation) 
RESULT, ENV | 
Calis: MEMBER, REVERSE, EY, MAKE_UNIQUE, CONS 


called by: EV_SFECIAL_ CASES, BIF AFFLY, MAKE_UNIQUE 
comments: Fliminates redundant elements from INPUT and 
returns RESULT. 
KEELE EEE EKER ER EE REESE EERE REE ERE EKER RARER RRS RRSP ERR REE ER HSE 
[LAMBDA (INPUT RESULT ENV) 
(COND 
( (NULL INFUT) (REVERSE RESULT? j 
(T (COND 
( (MEMBER (EV (CAR INPUT) ENY?) RESULT: 


: (MAKE UMIQUE (CDR INPUT} KESULT ENV)) 
(T (SET@ RESULT (CONS (EV (CAR INPUT) ENV) 
RESULT) } 


(HARE UNIQUE (CDR INFUT) RESULT ENVI? 


ERIC SET 
د چ جد ج د د جد جد د چ چ د د جد د د د د چ د د چ د د چ چ جد د چ چ جد جد د چ جد ید د د د چ د د چ چ ج د ج جو جج‎ OM جد چ چ د چ ج جد د چ چ‎ 


args: SET (Untagged set) 

calls: NUMBERP, MAPCAR 

called by: BIF_APPLY, ARRAY _CONCATENATION, MAX SET, MIN SET 
]< 1 ۲۱ 0 5 2 7 


= 


comments: A boolean utility function which determines i: 
all members of SET are numeric. 

SEEKER EERE SKE KEELER ERE RE KE REE EEE REE EE EERE PERSE EERE ER ESSE HE EHES 

CLAMBDA (SET) 

(PROG NIL 
CMAPCAR SET (QUOTE (LAMBDA (X) 
(COND 

( (NOT (ΠΗ 
(OO EXIT 


ΕΞ) 


NUME 


(RETURN T) 
CO RETURA NICI? 


(POSIT 
اق لبق قا مال عب د بد ابق د اف د ج د چ د ج د د  ید کہ -۔ ہز‎ aic Ac د د ج بد اق‎ BRE KEE EERE SETS 


args: L (Any LISF list) 
TARGET (Anything) 

calis: EQUAL, SET, PLUS 

called by: EXECUTE 

binds: H 

comments: A utility function used to find the position of 
the "==" symbol in an RFL command. 


چ ا ا ا ج E‏ ت ج ا د ا ا ا AE AE AE OEC OC 3E OC OC AIC AE‏ ج د د ا چا ج د د جد € + € ج د د د جد چ جج جد چ د د جج جد د د جد د جد جج د 


CLEMEDA (L TARGET) 
(PROG (N) 
(SET (QUOTE N) نوا‎ 
LOOP (COND i 
(NULL L? (RETURN ۰۱ 
( (EQUAL TARGET (CAR L)) 
(RETURN (PLUS N 1))) 
(T (5ET (QUOTE N) (PLUS N 1)) 
(SET 1 ٤٦ 
(GO LOOP 1) 


(FRINT LIST 
ee e ae E a چ چ د چ‎ -ᾱ- -- - LOEO HO REGOLE XO i 
args: S (Any LISP list) 
calls: ATOM, STRINGP, HEME, SHOW ATOM, PRINT LIST 
Called by: ERROR_HANDLER, SHOW ATOM, PRINT LIST 
comments: An output utility to display RPL results which 
are in a LISF list form in a more readabis 
format. 
ee جد جد جد یز ایز عب يدا یل ایل یز با یلد اچ دب‎ AE ج چ یز و دز سد ہو ید ید د د بیز جد جد‎ E کڈ دج ید‎ E 
TLAMBDA (5) 
(COND 
MULL 8S? MIL? 
OR (ATOM S) 
(STRINGP 5) 
(EQ (CAR S) (QUOTE closure?) 
(MEME (CAR S) (QUOTE (Eset Erell 
(SHOW ATOM 5) } 
(T (SHOW ATOM (CAR 5)) 
(FRINT LIST (CDR 91)? 


(< 
τ 


< Z <£ ee ee د د جد جد جد د‎ AE JE OE OE JE OE QE AIC AIL ید ېز یز بیز‎ ᾱ- ᾱ- کد کد یدج ید‎ 

calls: WAITFORINFUT, READLINE 

called by: RPL 

EKER EEE LH HEHEHE LEE E ERE RHEE EE ERE LEK EERE KEK REE ER ERE REPRE EEE 
CLAMBDA NIL (WAITFORINFUT) CREADLINE)) 


(READTERM 

3-3 JC JC 3C J€ 3€ 3C JC Je 3€ 3 3E € Je Je Je JE J€ JE JE JE JE Je JE 33e JC JE JE ee OE د چ د د جد چ‎ EO EE د چ چ چ د جد جد چ چ د چ چ د جد چ‎ 
calls: WAITFORINFUT, READLINE 
231 لت ز‎ Gy: SET USER ENV, EXIT 

HELE د بهد‎ E E E ج لد د لھ جد د د ن د د د اد چ چ د د چ د د ب د د جد چ د د‎ PEE EEE جب‎ co o 
٣6۵18108 NIL (WAITFORINFUT) (CAR (READLINE) 


(READ USER DEFS 
ΒΚ د د د د د چ چو چ جد جد چو جد جد‎ E a د ېي پد ېد پر لو‎ EU JE XL AC GE ECC JOE OEC OE چ جا و چو چ چ چ چ ع چ‎ de Ro OL o 
args: FNAME (Unix filename) 
calls: ΤΕ, ۹9۳ ۱1 پا ۲ و‎ ۱۳٣١١١ 1 CLOSEALL, 
1 ۱۷۳ 1۱-2۳ و‎ READ 
called by: SET USER ENV 
binds: INFUT, DEFIN 
uses free: ERRORCODE 
comments: A utility function which reads a previous RPL 
session s commands from FNAME into the current 
RPL session. 
REEL EEE EERE ERE RE REE EERE ER ERR HR RRR GSES EPR HE 9o = 
CLAMBDA (FNAME) 
(PROS (INPUT DEFIN) 
(SETQ INPUT «(INFILEP FNAME) ) 
(COND 
( (NULL INPUT) 
(WRITE (QUDTE (file not found))) 
(GO EXIT))) 
(INFILE INPUT) 
(WRITE (QUOTE (Loadinqg—-—-))) 
۱ (SETO DEFIN (READ INFUT)) 
LOOF (COND 
((EQ DEFIN (QUOTE EOF) ) 
(RITE (QUOTE {Session loaded)? } ?} 
(GO EXIT?) 
(T (SET@ ERRORCODE (QUOTE ERRORFREE) 3} 
(EXECUTE DEFIN) 
(SETH DEFIN (READ INPUT?) 
(50 LOOP) ? } 
EAP ٤٢٢٣١٢٤٢ ( 
(CLOSEALL INIL T) 


HJ 
e 
Cn 


(SAVEF 
3C 3 3C JC 4C AC 3e 3€ JE QC AE JE JC c JC JE JE XE JC IC HC OE OE JE JEJE JE چ چ ج چ ج چ‎ JE IC JE IE Je CE CAE OE OE IEEE XE IE AE OE XE IC AE ICE EAE 
args: FNAME (Unix filename) 
DEFS (A LISP list of function names) 
VARS (A LISP list of variable names) 
alls: SET, PACE LIST, MEE TES 
muses free: FFNS, FCOMS 
comments: A utility function used to write all or a 
portion of the LISP functions, and variables in 
the current LISP environment to a file. Used 
to create the RPL-INT file. Also used to 
convert LISP files not created in Interlisp Το 
the InterLisp' input format. 
3C 3C JE 3C 3C 3E JC 3e 3C E JE د چ جد‎ I JE GE JE JE OE IC Je EIE AE JC JE 3E GEHE JC OEC OE QE GE چ جد چچ د چ چ د چ‎ IEEE EAE EAE ORE OR ERE چ عب یر‎ 
CLAMBDA (FNAME DEFS VARS) 
[SETH FCONS (PACK (LIST FNAME (QUOTE COMS] 
CSETE FFNS {FACE (LIST FNAME (@C@UDTE FNS] 
(SET FFNS DEFS) 
(GET FCOMS (LIST (LIST (RUOTE FNS) (QUOTE *) FFNS) 
(LIST (QUOTE VARS) VARS))) 
(MAKEFILE FNAME J) 


(SELECT_ALL 
ججد ید جد د جد یک د د چ د چ د چ چ د د جد چ د د جد جد چ چڊ جد ج ج‎ ERR EE جد جد ج چ د د د جد چ ج‎ ٤ چ‎ 


args: TOT (Anything) 

TEL (Untagged relation) 
calls: MAPCAR, CONS, REVERSE 
called by: BIF APPLY, KELATIVE PRODUCT 
binds: SETS κ 


comments: Returns an untagged set of all the right 
members associated with the TGT in TEL. 
چ جد جد چ چ چ چ چ چ چ چ چ چ چ چ چ ج د چ چ چ چ چ بچ چ جد چ چ جد چ چ جد چ جد د د ب جد چ جد د جد جد چ چ جد چ بد ج جذ جد جد چ د ج جج بدا بد هی د‎ 
LLAMBDA (TGT TBL)? 
(FROG (SET? 
(SETQ SET NIL? 
CHAFCAR TBL (QUOTE (LAMBDA (X) 
(COND 
((EQ (CAR X) TGT) 
(SETO SET (CONS ) ۶ 7۳6 
(RETURN (CONS (QUOTE Eset) (REVERSE SETI) 


ΠΗ TO REL 
A 3C 3C JC 3C 3C 3E 3e E JE 3E 3E JC JC Je 3E Oe EE E JE 3E لا پر‎ EIE د جد لالا و‎ E بی ج ج چ د د جد د جد چ جد ج جد د چ جد د جد ج جد جد جد یر د جد جد چ‎ 
args: Ὁ (Untagged LISF list) 
calls: LEQ, LENGTH, CONS, SEQ TO REL 
called by: EVSEQ, BIF_APPLY, SEQ TO_REL 
comments: Returns an untagged relation which is the 
result of converting the RFL input form tor a 
sequence to its internal representation. 
EGG CC AC Ae JE QE Oe C OEC JC JC JC IE JACO Je JE XE JC جد د‎ OE GEO و و ہز بج د جد د د د ج ی‎ E EE ORO ج چ و چ چ چ چ‎ κ چ‎ 
Γι ΟΠΕΡΑ (5) 
(COND 
({LEQ (LENGTH S?) 1) NIL) 
(T (CONS (CONS (CAR S) (CADR 95)) 
(SEL وت پات ۱ لا‎ 


(SHOW ATOM 
I Il lll ll llic II LLLLLLLLII 
: X (Any LISP atom) 
=: ATOM, STRINGF, MEMB, FPRIN1, FRINT_LIST, LENGTH, 
CONS, LIST; SPACES 
called by: DISPLAY, SHOW_ENV, FRINT_LIST 
comments: An auxiliary function for output of RFL atoms. 
ΕΚΕ ΕΑ ΚΕ ΕΚ ΚΜΕ ΕΕΚ ΕΠΕΚ ج چ چ چ چ چ چ چ ج غ چ غ چ چ چچ چ چ ھچ چ د چ چ چ‎ ox XXE 
[LAMBDA (CX) 
٦5۲8565 1) 
{COND 
((ATOM X) (FRIH1 X)) 
((STRINGP X) (PRINI X)? 
C(MEMB (CAR X) (QUOTE (Eset Erel))) 
(COND 
( (EQ (LENGTH X) 1) (FRIN1 (QUOTE empty) ) ) 
((ED (CAR X) (QUOTE Eset)}) ۳۳:۱1 (QUOTE (5?) 
(PRINT LIST (CONS (QUOTE set) (CDR X2)) 
(PRIN1 (QUOTE Z)))) 
(T 4۳۳۳1 (QUOTE Z()) 
(PRINT LIST ‘(CONS (RUOTE rel) {COR X})) 
(PRIMI (QUOTE Z)1J 
CfEQ (CAR X) (QUOTE closure) ) 
(COND 
[{E {LENGTH X) 4) 
(PRINL (LIST (CAR X) (CADR X) (CADDR X3 
(T (FRIN1 XJ] 
(T (FRIN1 (QUOTE .)خم‎ 
(FRINT LIST X) 
(PRINM1 (QUOTE %)] 
¿SF'ACES 11) 


Ifi‏ سم 


arg 
cal 


(SHOW ENV 
بد ېداد پد‎ JC JC 3E JC د د د د د د د د‎ AE OE E OCC OC ACC ACC IC OC OE OE JE JE اداد د د ہر د د د د‎ EC یز یز ابیز بدا زا پل پل‎ 3E جد د چ‎ £ 
args: ENV 
calls: MEME, LEQ, WRITE, SHOW ATUM, PRIMT, TERPRI, 
LENGTH, LIST, SHOW_ ENV 
called by: SHOW_ENV 
binds: X 
uses free: OFNAMES 
comments: First implementation for the "env" command. 
Shows the evaluated form of the environment. 
Not currently used, left if wanted for future. 
BEER EK EEE EEK EE EEK KEELE ERE KEELER ېز دی د د يز ړا‎ JE جا زا‎ COE OE GE COE EE چ چ جد چ یب جد جد ب‎ 
CLAMBDA (ENY) | 
(FROG (X) 
(SETQ X (CAR ENV)) 
(RETURN (COND 
{ (MEME (CAR X?) OPNAMES? 


(WRITE (QUOTE (System Defined Functions)? 


(TERFRI) > 
(T CCOND 
{(LEQ (LENGTH X) 4) 
(SHOW_ATOM X) 
(TERFRI) } 
(T (COND 
C (AND (EQ (CADR X) 
(QUOTE ciosure) > 
(ED (LENGTH X) رات‎ 
(PFRINT (LIST (CAR X) 
(CADR XR) 
(CADOR X) 
(CADDDR X] 
(T (SHOW ATOM x: 
{TERFRI J 
(SHOW ENY (ΓΡ ENV 15 


TF 
یز زا لع يداد د پد چز‎ KC KC دج و چ چ چن د ېل يبد د ہز ید وابد چو‎ E E EE E E E چ جد چ چ چد جد د چ‎ X 
args: B (LISP boolsan) 
zalled Dy: BIF_AFFPFLY, REQRĽUAL 
comments: Converts LISP b5ooleans to RFL bocisan format. 
AEAEE a E e a e a e E IE JE KE ہز ہہ ہز یز‎ a a بدا اعد لعل‎ e GE جج یز جن چ بیز‎ 
TLAMBDA (B) 
(COND 
((EG B NIL) (QUOTE false)) 
(T (GUDTE truel) 


CTYPE 
چو ج ج‎ RELEASE EERE EEE EERE EE RHEE RE KER ERE EE SEE SE چ چ د چ‎ SHEE 
args: ۸ (Anything?) 
calls: ATOM, STRINGP 
moe Dy: DISPLAY, EV SPECIAL CASES, INFIXOF, PREFIXOF, 
BIF ñPPL Y HEM, REGUAL, RPL-REFEAT, 
SUFERSLRIET, COERLE τὸ REL 


comments: A utility function used to trap illegal cailis 
to the LISP functions, CAR and CDR. Returns 
the first element if X is a list. 
ο... ERE GR GERE OR EGRE o ox 
[LAMBDA (X) 
(COND 
({OF (ATOM X) (STRINGP X20) (GUDCTE atom?? 
(T (CAR X1) 
(WRITE 
ded جج چ دبد دد ہچ ہز د د ہد ہا ہو د چ چ د چ چ چ .یچ ہیزج د چ بد بد د د جذ د جد د ود جد ید بیز جا بر پر ېر پر‎ KE ER پت‎ e S RE چ چ‎ 
args: ۳ ٥+ 
calls; PRINZ, MAFCAR, SFACES 
called by: KFL, SET USER ENV, DEF BINDING, ERROR_HANDLER, 
EXIT, FILE READ, DISPLAY_ENY, READ_ USER و اد‎ 
SHOW_ENV 
Hinds: A 


comments: A utility function which alters LISF output to 
a more natural form without parentheses. 
HEE RE HERRERA E EEK ERE HEE چ چ چ چ چ چ چ یچ چ چ چچچ چ چ چ چ چو چ چ چچ چ چ چ چ چغ چ و چ چ چ چ‎ 
[LAMBDA (L) 
(MAPCAR L (QUOTE (LAMBDA (OX) (PRIN2 X) (SPACES 11? 


(WRITE USER DEFS 
یل اج ےہ ہز لہ یہ یہد یت ہہ ات و نود ہز‎ de Ac ac د د‎ Ae د د ج د‎ XXe SES ES 


args: FNAME (Unix filename) 
calis: GOUTEILE, MAFCAR,;, CEDSEACE, UUIFILEF, REVERSE; 
FRINT 
called by: EXIT 
binds: OUTPUT, DEFOUT, X 
Uses free: USERDEFS 
comments: A utility function used to write the current 


RFL session's commands to a file, FNAME. 
III چ ج ج چ چ د جب چ چن د ج ن چ د جد چت چن د چ چ چ د ج ن چ د ج د چچ د د د د ج جد د چڊ د جد چ جد جد جد جد د د چ چ د جد د د ید چ‎ 
[LAMBDA (FNAME) 
{FROG (OUTFUT DEFDUT) 
(SETQ GUTFUT (OUTFILEF FNAME) )} 
1١١١١١٣ لاب‎ ۰ 
GETE DEFOUT (REVERSE, USERDEFS?)> 
CMAPCAR DEFDUT (QUDTE (LAMBDA (X?) 
ERINI (CDR X)? 
OUTPUT J] 
(PRINT (QUOTE EOF) OUTPUT)? 
(CLOSEALL NILI) 
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A. INTRODUCTION 


The purpose of this appendix is 


xample RPL programs which demonstrate 


potential power of the language, 


issues 


s 


involved in the implementation. 


Τι 


d 


. EXAMPLE #1 PAYROLL 


Suppose there 


۲: لا با‎ upon a unique employee number. 


only the employse 


f 


EL 


or payroll purposes 


5 


bd 


RI F 


ڑا“ 


thi‏ يا 


Tz 
— 
ګ-‎ 


Pa: 


p 


which 


The employse re 


and their associated values. 


i-e 
ii 


rt 


'DOildiMaster' file. 


i | addition to the ‘OQldMaster’ 


wich would contain 


number of 


hours tor a given time peri 


L 
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can be represented by Simpi 
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is a program 


"DidMaster' and ‘Updates’ 


master with current accumulated hour 
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In essence, the values of the ‘hours’ field in the 


'DldMaster' file need to be increased by the amount of hours 


it 


in the ‘Updates’ file. A function to do this can b 


“fy 


developed from built-in RPL operators and takes advantage = 


the infix to prefix conversion functional, the functional 
which fix one of the two normal infix operator arguments, 
and several combining functionals. The power of RPL is that 


= 
— 


Eh 


this complicated sequential process of many steps can 


P 


combined into virtually two steps using RPL constructs. 


Figure G-i shows a RPL program that would accomplish the 


task. 
PF == (file "DldMaster"?) (1) 
U == (file “Updates") (2) 
H == "Hours" (3) 
sumhrs == ((op +) O ((rsec sel H) i: ( (43 
u == ((F # U) rp (as o ((lsec H ,? o sumhrs)?) ( 
F” == ((u # F) rp (Gp ;)) (δ; 
val F’ i7) 
NOTES: 
S F = old file 
2) لا‎ = update file 
(G) H = Field name for hours worked 
(4) sumhrs = Update auxiliary function to add old hours 
to the update hours 
۲3917 گا‎ = Updating function 
6; RC = New file 


5) Display file in evaluated form 


Figure G-i -- Payroll Example 
Notice how the ‘op’ functional is used to allow infix 
operators to be combined without any arguments. likewise, 
‘lsec’ and ‘esec’ are used to fix the left or right 


nn 


AL aL 


argument, respectively. All operators in this example are 
explained in detail in Appendix C. 

U, and H are all just data definitions to initialize‏ و۳ 
the names. "'sumhrs' is just an auxiliary function which‏ 
performs the addition required and also makes the program a‏ 
really‏ ولا little easier to read. The updating function,‏ 
creates an extensional function in the form of a relation‏ 
(table) which contains the updated ‘hours’ field. The new‏ 


file 45 created when an ordered union C=) is performed 


between the records of the update table produced by u and 
the original file, ‘OldMaster’. The ordered union replaces 


the value of the 'hours' field in the original fiie with the 
new value contained in the update table. Normally, 
structure would be saved for use as the 'UldMaster' the next 
time an update would be scheduled, but the program in 


Figure 5-1 simply displays the resulting file for the user 


demonstrates the complexity σῇ the 


-l 
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language that had to be dealt with in the implementation, 


but also gives one a feeling for the abstraction, 
flexibility and power that can be obtained. 
C. EXAMPLE #2 اه ون‎ Γ᾽ 

The APL operator νι filters a sequence given a 
predicate to test its elements. In order to natter 
illustrate the need and execution process of this operator 


τὰ 
Al aL aL 


the following RFL sequence will be used 


Ss == (seq 3 4 -2 á 7 — 1 2 — 4) 
This is represented internally as, 
Eu et ιν ο το ος S7 lt) (—1 2} ¿(2 — 4); 
and graphically as 
وو ری‎ e a .*—s 
= 4 -2 6 UA BEC = -4 
° Suppose, the user wanted to eliminate the negative nodes 
in the sequence. The normal filter operation is not 
Suitable since it would simply test both the left and right 
member of each pair in the relation and eliminate the entire 
node if either element was negative. The result of 
|| ۲ ۱:۱۱ a normal filter on ہک‎ would produce: 
(rel (3 4) (5 7?) 
Graphically, this is: 
° 9 2—— s. ‘> 
E 4 ۵5 7 ES 
Notice that the resulting elements of the sequence are 
Gisconnected and the valid element, δα en has heen 
erioneously deleted. A solution to this problem would have 
to reconnect the disconnected nodes and not eliminate valid 
ones by mistake Thus, the ‘xi’ operator 15 justified. 
The xi operator accomolishes this process in basically 
three steps. First, the transitive closure of the sequence 
is computed. Second the nndesiresbie nodes are 


AL ᾱ---.-ἳ 


۵1 1 1 ۱1 ۱۵۲ 20 and third, the redundant edges are eliminated. 


This process is illustrated graphically on the sequence s. 


(1) Compute (s sup +): 





SESSA 


(2) Eliminate negative nodes using restriction, 
5 restr (rsec > 0): 


(3) Eliminate redundant edges using mu, a relation mini- 


mization operator defined as: (R \ (R í (R sup +)): 
5 i: (s sup +): 
s N (s i: (s sup +)): 
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Thus, the definition for ‘xi’ follows: 


p xi r == (mu iir sup +} restr p? 


τι. 
i 


he major implementation problem here 


h 
ui 
r+ 
T 
ID 
h 
(u 
٩ 
τω 
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amount of temporary storage required to hold the transitive 
closure of s. The use of LISP as an implementation language 
eliminated this concern since it already has a built-in 


storage management system. 
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